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Massimo Mangia 

OLIVETTI MIO: GUIDA ALL USO 

Una guida all'uso, ma anche una precisa (onte di idee e 
di possibili applicazioni. 

Il libro è diviso in 2 sezioni: nella pnma sono descritti i 
comandi e le istruzioni del linguaggio BASIC, 
classificati in gruppi funzionali, con un criterio che ne 
semplifica l'apprendimento e la consultazione. 

Nella seconda parte vengono presentati i programmi 
applicativi integrati nel calcolatore, che ne fanno di 
volta in volta una versatile macchina da scrivere, 
un'agenda, un indirizzario o un terminale di un sistema 
remoto. 

192 pagine 

Codice 401B L 18.000 

Rita Bonelli - Daria Gianni 

M20 LA PROGRAMMAZIONE 
BASIC-PCOS 

Un libro completo sul personal italiano più famoso; 

Per la lettura è richiesta la conoscenza di alcuni 
concetti elementari di informatica di base e dei sistemi 
di numerazione binario, ottale ed esadecimale 
La presentazione sistematica dei comandi PCOS e 
delle istruzioni BASIC è accompagnata da una ricca 
gamma di esempi e applicazioni, che portano 
gradualmente il lettore a conoscere il sistema operativo 
e le tecniche di programmazione, dalle più semplici a 
quelle più sofisticate 
360 pagine 

Codice 401A L. 30.000 

Rita Bonelli 

IL PRIMO LIBRO PER M24 MS DOS 
E GW BASIC 

Il libro offre una panoramica rapida ma completa sul 
nuovo Personal computer M24 

Il primo capitolo, dopo aver posto l'accento sul binomio 
calcolatore-pacchetti di programmi, che rappresenterà 
sempre di più la carta vincente nell'evoluzione del 
mercato, descrive la configurazione hardware del 
sistema M24. che fa da supporto a diversi sistemi 
operativi e diversi linguaggi. 

Segue un capitolo che illustra l'utilizzo della macchina 
nei diversi campi e le prove di alcuni pacchetti di 
software disponibili. 

Gli ultimi due capitoli descrivono uno dei sistemi 
operativi, l'MS-DOS, e uno dei linguaggi, il GW-BASIC. 
riportando alcuni esempi 
152 pagine 

Codice 401P L. 24.000 
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La città informatica 

di Riccardo Paolillo 

Si è spesso osservato come il proliferare di nuovi 
computer shop stia rapidamente cambiando il panora¬ 
ma commerciale delle nostre città. 

Questo processo è ulteriormente accentuato da nuove 
iniziative che modificano lentamente, ma sensibilmente, 
il nostro modo di vivere. Pur senza addentrarci in di¬ 
scorsi sociologici, che sarebbero sicuramente fuori luo¬ 
go, ci sembra opportuno esaminare questi fenomeni che 
coinvolgono, anche se marginalmente, la vita di ognuno 
di noi. 

Il computer shop rimane, ovviamente, il polo maggiore 
di attrazione: con le sue vetrine, le sue luci e i calcolatori 
in funzione esercita il fascino irresistibile della tecnolo¬ 
gia alla portata di tutti, ma basta spostarsi di pochi passi 
c scoprire altri elaboratori in luoghi imprevedibili. 
Tutte le ricevitorie del Totocalcio, ad esempio, sono 
dotate di apparecchi per la convalida delle giocate, che 
altro non sono che piccoli calcolatori opportunamente 
programmati. Spesso poi sono affiancati da personal 
veri e propri, con i quali i gestori possono rapidamente 
effettuare sviluppi di sistemi ridotti da proporre ai clien¬ 
ti. 

Un altro esempio di informatica a disposizione di 


tutti è quello degli sportelli bancari automatici ormai 
diffusissimi dappertutto. Chi li usa, e ne apprezza l’utili¬ 
tà, forse non si rende neanche conto che in realtà si 
tratta di calcolatori elettronici. 

Questi semplici esempi, riscontrabili nella nostra vita 
quotidiana, dimostrano che l'incontro uomo computer 
è già una realtà, e non si tratta di un evento necessaria¬ 
mente traumatico come alcuni vogliono far credere. 
Molto più facilmente si deve prendere atto che il calcola¬ 
tore, specie se personale, può essere utilizzato non solo 
per applicazioni gestionali o come strumento di video¬ 
game. A Milano è nato recentemente un centro per 
l'interscambio personale di annunci economici; gli stru¬ 
menti di trasferimento delle informazioni tra i vari in¬ 
serzionisti, sono proprio dei personal computer che 
oltre a consentire accessi rapidi a molti dati, permettono 
di avvicinare gli utenti (soprattutto giovani) al mondo 
affascinante dell’informatica popolare. 

Tutte queste iniziative contribuiscono a rallegrare ed 
animare le strade dei centri cittadini: sicuramente, in 
questi casi, il personal agisce da catalizzatore e aiuta a 
rafforzare e migliorare i rapporti interpersonali. 

Bisogna solo augurarsi che questa tendenza non porti 
a situazioni esagerate e si pretenda di automatizzare 
attività non idonee: il rifiuto che sicuramente ne scaturi¬ 
rebbe, cancellerebbe rapidamente questi tentativi di 
presentare in modo amichevole e utile le nuovissime 
tecnologie. 
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Un menu personalizzato 

Sono un utente di Commodore 
64, che si rifiuta di usare la macchi¬ 
na solo per scopi futili, bensì prova 
a sviluppare delle possibili applica¬ 
zioni, che cerchino di migliorare le 
possibilità della stessa. 

A questo scopo vorrei formulare 
un paio di domande, per le quali 
aspetto vostra gentile risposta. 

È noto che, all’accensione, il com¬ 
puter va alla ricerca di una locazio¬ 
ne di memoria, ne legge il contenu¬ 
to, e si comporta di conseguenza. 
Gentilmente vi chiedo: 

I ) la locazione di memoria iniziale; 

2) quale linguaggio usare, per mo¬ 
dificare il contenuto di questa loca¬ 
zione; 

3) nel caso risultasse il linguaggio 
macchina, data la mia totale in¬ 
esperienza; vi pregherei di scriver¬ 
mi una piccola routine in tale lin¬ 
guaggio, che chieda una sigla di 
riconoscimento, facendone appa¬ 
rire la domanda e verificandone 
l’esattezza della risposta. Se que- 
st’ultima risultasse affermativa fa¬ 
re in modo che passi allo schermo 
normale, mentre in caso negativo 
continui a richiederla. Vi prego in¬ 
oltre di immettere nella stessa rou¬ 
tine, come condizione iniziale, che 
lo schermo e il bordo diventino ne¬ 
ri, mentre il cursore verde. 

Fabio Fracas 
Rimini (FO) 

A I momento dell'accensione de! C 
64. il sistema esegue automatica- 
mente alcune operazioni e. in parti¬ 
colare. controlla la presenza di una 
cartuccia per l'avviamento automa¬ 
tico della ROM. nella locazione de¬ 
cimale 32768. Se la cartuccia è pre¬ 
sente, e i primi nove byte sono codi¬ 
ficati secondo un ben preciso stan¬ 
dard, /'inizializzazione normale vie¬ 


ne sospesa e il controllo viene trasfe¬ 
rito a! codice della cartuccia; in caso 
contrario, continua il normale siste¬ 
ma di inizializzazione. In questo 
modo si spiega perché non occorra 
dare particolari comandi di R UN o 
S YS. quando si accende il calcolato¬ 
re con una cartuccia inserita. 

Questo sistema di tipo hardware 
rende molto problematica la realiz¬ 
zazione di quanto da lei desiderato: 
occorrerebbe infatti realizzare una 
cartuccia per eseguire un program¬ 
ma di inizializzazione opportuno. 

Una soluzione molto più sempli¬ 
ce, anche se incompleta, in quanto 
non eseguibile automaticamente al¬ 
l'accensione. è quella di realizzare 
un piccolo programma BASIC da 
mandare in esecuzione subito dopo 
l'avvio mediante i tasti SHIFT e 
RUN: questo programma potrebbe 
poi essere registrato all’inizio di 
ogni nastro. 


Ottocentisti cercasi 

Vorrei chiedervi se sapete dove e 
cosa reperire di specifico per 
istruirmi all’uso totale del mio 800 
XL (possibilmente in italiano). 
Questo è un problema sentito an¬ 
che da numerosi conoscenti che 
con l’au.silio della guida per F800 
(unica reperibile in italiano e solo 
parziale) non potranno mai “cono¬ 
scere” a fondo l’800 XL. Potete 
indirizzarci? Grazie se pubblicate 
la presente. Invito i più esperti a 
farci sapere o inviare qualcosa. 

Nello Scalia 
Torino 

Non possiamo fare altro che ri¬ 
lanciare il suo appello. U A tari 800 
XL è una macchina relativamente 


“giovane”, ma ci risulta abbia già 
incontrato il favore di molti appas¬ 
sionati. Coraggio quindi: aspettia¬ 
mo le vostre collaborazioni, per co¬ 
minciare a parlare anche del nuovo 
A tari su Personal Software. 


Programmi d’autore 

Sono un vostro nuovo lettore e 
nel numero di Agosto-Settembre, 
nel testo dell'articolo /?«//»• di Bar¬ 
zaghi, ho letto dei riferimenti ai 
programmi La 24 ore di Le Mans, 
Formula I. Gran Prix, Il campiona¬ 
to di calcio di Serie A e B, All thal 
basket. Gradirei mi comunicaste 
per ciascuno dei programmi citati 
la rivista ed il rispettivo numero su 
cui sono stati pubblicati i listati (ed 
anche quello delle eventuali corre¬ 
zioni ai listati). Vorrei inoltre sape¬ 
re se sono compatibili con il Com¬ 
modore 64 c se sono salvabili su 
nastro. 

Leo Loria 
Torino 


Tutti i programmi da lei citati sono 
stati pubblicati sulla rivista Bit. 
Precisamente e in ordine di uscita, 
abbiamo: 1 1 campionato di calcio di 
Serie A e B sul numero 11 dell'Otto¬ 
bre 1980. Le Mans, Pubblicato sul 
mero 26 del Marzo '82 e sul numero 
1 sul numero 18 de! Giugno '81. Infi¬ 
ne All that basket e Grand Prix. 
pubblicati rispettivamente sul nu¬ 
mero 26 del marzo '82 e sul numero 
27 dell’Aprite '82. Tutti iprogrammi 
sono stati scritti per PET/CBM. e 
non sono quindi direttamente utiliz¬ 
zabili sul C 64. Riteniamo comun¬ 
que che, data la somiglianza dei lin¬ 
guaggi delle due macchine, e l'ab¬ 
bondanza di spiegazioni con cui Bar- 


6 










laghi accompagna i propri articoli, 
non sia eccessivamente complicato 
ricavarne delle versioni per il Com¬ 
modore f>4. 


I caratteri scomparsi 

Posseggo un C 64 da alcuni mesi, 
ma solo di recente ho potuto impe¬ 
gnarmi a fondo nell’apprendimen¬ 
to del linguaggio BASIC e nella 
programmazione. Tutt’ora sono 
agli inizi, ma sono sicuro che più 
uno prova a programmare, tanto 
più imparerà. 

Da un po’ di tempo sto studiando 
un programma con le funzioni di 
macchina per scrivere (si imposta¬ 
no i dati ed il testo e la stampante lo 
esegue), ma purtroppo, sono rima¬ 
sto incagliato poiché la stampante 
si rifiuta di stamparmi le virgole 
nel testo. Scrive fino alla virgola, 
ma ignora insieme ad essa, tutto il 
testo che segue, spezzettando le 
frasi e rendendo il testo ridicolo. 


Ho provato a risolvere il problema 
in diversi modi, ma un po’ per 
ignoranza e magari sfortuna, non 
l’ho mai imbroccata. Per cui chie¬ 
do se potreste aiutarmi voi e consi¬ 
gliarmi cosa devo fare per risolvere 
questo problema. 

Leggo Personal Software da poco, 
ma lo trovo molto interessante ed 
utile e devo ammettere che i vostri 
listati per il momento mi fanno 
molto comodo. 

Riccardo Di Ciammo 
Milano 

Anche se non ci ha inviato il suo 
programma, riteniamo di aver indi¬ 
viduato l’origine de! suo problema. 
Molto probabilmente non si tratta di 
un malfunzionamento della stam¬ 
pante, ma di un uso non compieta- 
mente corretto dell’istruzione IN¬ 
PUT del linguaggio BASIC. Questa 
istruzione, utilizzata per assegnare 
dei valori alle variabili del program¬ 
ma. non consente di utilizzare alcuni 
caratteri e in particolare la virgola. 


Il motivo di questa limitazione ri¬ 
siede nel fatto che la sintassi del 
comando prevede la possibilità di 
effettuare assegnamenti a più varia¬ 
bili, separate da virgole, con un'uni¬ 
ca istruzione di INPUT. Una even¬ 
tuale virgola introdotta da tastiera 
viene quindi interpretata come sepa¬ 
ratore tra una variabile e la succes¬ 
siva, che in realtà non esiste. Per 
aggirare questo ostacolo, visto che 
in un programma come il suo è ne¬ 
cessario poter introdurre anche le 
virgole, occorre utilizzare l'istruzio¬ 
ne C,ET anziché la INPUT. L'istru¬ 
zione GETaccetta un unico caratte¬ 
re, compresa la virgola. A differenza 
della INPUT i caratteri introdotti 
non vengono visualizzati sullo scher¬ 
mo e non occorre premere il tasto 
RETURN. È comunque molto facile 
scrivere una semplice routine che, 
visualizzando mediante una PRINT 
lutti i caratteri via via introdotti, 
simuli perfettamente l’istruzione 
INPUT, mediante fuso di una serie 
di GET successive. 



M A G A Z I N E 


La rivista dei 
sistemi MS-DOS 

La guida completa 
del personal 
computer IBM 
e compatibili 



EDITORIALE JACKSON 














Anche per il mondo dei micro è arri¬ 
vato il momento di “liberare” la 
CPU dai compiti riguardanti il com¬ 
pletamento delle operazioni di in¬ 
put/output con la periferia. Nel 
campo dei mainframe ciò è avvenu¬ 
to attraverso graduali passaggi, dal 
“canale” che sincronizzava il flusso 
delle informazioni in entrata ed in 
uscita, ad un’architettura “multi- 
processor” con CPU specializzate 
per i vari compiti, pronte a dialogare 
con l’intelligenza propria delle peri¬ 
feriche. Il primo passo per i personal 
è compiuto dai costruttori di hard¬ 
ware che possono dotare i propri 
dispositivi di un buffer interno che 
consente un certo “parallelismo” 
delle operazioni. Nel caso delle 
stampanti questa memoria “locale” 



è spesso però incapace di contenere 
un intero tabulato di una certa di¬ 
mensione, vanificando così il pre¬ 
sunto guadagno legato alla presenza 
del buffer. Esistono perciò dispositi¬ 
vi ausiliari che agiscono su due fat¬ 
tori critici: come nel caso dell’inter¬ 
faccia CTX, contengono un banco 
di memoria di transito ampliabile in 
loco (a partire da 8 Kbyte per giun¬ 
gere a 256) e possono ricevere dati 


ad una velocità massima di 38.400 
baud, realmente proibitiva per mol¬ 
te delle stampanti in commercio. 
L’altro lato dell’interfaccia opera la 
conversione alla velocità del dispo¬ 
sitivo di output. La CTX si presenta 
inoltre in tre versioni, per consentire 
l’uso di stampanti con uscita seriale 
anche ai micro dotati di interfaccia 
parallela o viceversa. 

Micro Nord 

Viale Principe Eugenio, 32 
39100 Bolzano 
Tei 0471-30144 


La Texas propone Galaxy 


L’ultima calcolatrice scientifica del¬ 
la Texas Instruments si chiama TI- 
30 Galaxy ed è stata progettata pri¬ 
vilegiando le applicazioni didatti¬ 
che, vale a dire la completezza delle 
funzioni, la robustezza e la praticità 
d’uso. Obicttivo della Texas c di ren¬ 
dere la Galaxy un nuovo punto di 
riferimento per gli studenti delle 
scuole secondarie. La tastiera com¬ 
prende 42 tasti di ampie dimensioni 
a rilievo, suddivisi in quattro aree 
funzionali: numerica, operazioni, 
esecuzione e accensione. Il display è 
inclinato e dà indicazione delle ope¬ 
razioni in corso o delle funzioni atti¬ 
vate. Dotata del sistema operativo 
AOS (Algebric Operating System) 
la Galaxy consente 15 livelli di pa¬ 
rentesi e può mantenere sospese fino 
a quattro operazioni. Provvista di 
memoria costante, la nuova Texas 
dispone delle operazioni più comuni 
(funzioni trigonometriche, esponen¬ 
ziali e logaritmiche, radici e poten¬ 



ze) e di funzioni statistiche e di con¬ 
versione da gradi a radianti nonché 
dal sistema gradi/minuti/secondi al 
sistema decimale, oltre alle conver¬ 
sioni polari. 

Texas Instruments 

Viale Europa, 38/44 

20093 Cologno Monzese (MI) 

Tel. 02-2532451 


E’ arrivato anche il QL 


Dovrebbero essere ormai comincia¬ 
te le consegne del Quantum Leap 
della Sinclair, l’ultima rivoluziona¬ 
ria creatura di SirCliveche tanto si è 
fatta attendere dagli appassionati 
che avevano inoltrato i primi ordini 
postali in Inghilterra. La commer¬ 
cializzazione viene curata dalla Re- 
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bit Computer, una divisione della 
GBC di Cinisello Balsamo, distribu¬ 
tore esclusivo dei prodotti Sinclair 
in Italia. Dai primi giorni di que¬ 
st’anno è a disposizione anche la 
versione italiana della tastiera e dei 
programmi integrati, che sono stati 
tradotti per il bene di chi non cono¬ 
sce l’inglese. La Rebit ha allo studio 
una forma di garanzia per l’utente, 
simile a quella già sperimentata per 
lo Spectrum e ha potenziato il pro¬ 
prio servizio di assistenza tecnica 
per coprire le esigenze dei “Sinclairi- 
sti“ con tempestività, su tutto il ter¬ 
ritorio nazionale. 

Columbia, 

Largo Toscanini, I 
20100 Milano 
Tel. 02-7798267 



Una interessante novità per hobby- 
sti e utenti professionali alle prese 
con i disk drive Commodore forma¬ 
to D4 (compreso il Petdrive da 170 
Kbyte) e 1541 ci giunge dall’Inghil¬ 
terra. La Mcrmaid Software annun¬ 
cia uno strumento capace di recupe¬ 
rare tutto il possibile da dischi dan¬ 
neggiati e illeggibili con i normali 
mezzi a disposizione. Doctadisk è 
un programma che consente di ri¬ 
trovare dati alterati o presenti su 
dischi guastati dall’età o da eventi 
dannosi, trasferendoli su un disco 
nuovo. Come se non bastasse è pos¬ 
sibile copiare la testata del disco di¬ 
fettoso, vedere il contenuto di tracce 
e settori mentre si leggono i dati e 
riutilizzare il disco originale, se non 
era stato fisicamente alterato. Doc¬ 


tadisk permette anche di ottenere 
veloci copie di backup, il tutto per 
meno di 16 sterline (compreso un 
disco vergine). La Mermaid Softwa¬ 
re ricerca distributori per l’Italia. 

Mermaid Software 
27 Bu'ekingham Gardens. 

Edgware, Middlesex 
HA8 6NB 
England 

Tel. (01) 951 3355 
Telex 923574 AI.A COL G 


Pagine del software per Apple 


La Editronica ha realizzato un cata¬ 
logo comprendente un migliaio di 
programmi per i personal computer 
Apple. In 274 pagine sono illustrate 
le applicazioni reperibili sul mercato 
italiano per le macchine prodotte 
dalla casa di Cupertino, dal fortuna¬ 
to modello II al Macintosh, non tra¬ 



lasciando il recente Ile. Le schede di 
corredo riportano le notizie necessa¬ 
rie per una precisa identificazione: 
mercato dell’applicazione, prezzo, 
produttore, configurazione hardwa¬ 
re richiesta. E’ stato altresì ideato un 
“servizio lettori” per ottenere a 


stretto giro di posta informazioni 
più dettagliate o particolari diretta- 
mente dalle case produttrici di soft¬ 
ware. 

Editronica 
Corso Mon/orte. 39 
20122 Milano 
Tel. 02-702803 


Software Arts e VisiCorp 
firmano l'armistizio 


Ponendo fine ad una serie di poco 
onorevoli litigi, le due società ameri¬ 
cane hanno raggiunto un pacifico 
accordo riguardante la proprietà, lo 
sviluppo c la vendita del VisiCalc, il 
primo foglio elettronico per perso¬ 
nal computer largamente diffuso in 
tutto il mondo. II software fu realiz¬ 
zato nel 1979 da Software Arts, che 
cedette in quello stesso anno i diritti 
di vendita alla VisiCorp che gli im¬ 
pose il proprio marchio VisiCalc. 
Secondo quanto stabilito nel proto¬ 
collo d’intesa, VisiCorp non distri¬ 
buirà più il package. Il foglio elet¬ 
tronico torna così sotto le ali della 
società creatrice che ha inoltre otte¬ 
nuto dalla VisiCorp la lista dei clien¬ 
ti ed il diritto a riprodurre i manuali. 
Il recente spreadsheet della Visi¬ 
Corp si chiamerà d’ora in avanti Vi¬ 
si On Pian e non più Visi On Cale, 
ma non sono lesi i diritti di distribu¬ 
zione di FlashCalc, prodotto da una 
terza software house. Dulcis in fun- 
do, VisiCorp rifonderà mezzo milio¬ 
ne di dollari a Software Arts per le 
precedenti vendite di VisiCalc. 

VisiCorp 
Software Arts 
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itolazione 
con lo Spectrum 


Un aiuto nell’aula 
di chimica 


di Paolo Coretti 

I l lavoro qui presentato per¬ 
mette, tramite lo studio del 
pH (grado di acidità o basici¬ 
tà delle soluzioni), di simulare una 
titolazione. 

La struttura del listato è lineare e 


non presenta difficoltà di compren¬ 
sione: questo è un tipico programma 
in cui la parte più laboriosa è la 
risoluzione degli algoritmi di calco¬ 
lo, piuttosto noiosa normalmente, 
ma rapida con il computer. 

Dopo la visualizzazione sul display 
del menu principale (linee 2-18), si 
opera la scelta delle opzioni disponi¬ 
bili (righe 19-34). 

Le opzioni sono: 

1 - calcolo del pH di una soluzione di 
acido forte (righe 100-102); 

2 - calcolo del pH di una soluzione di 


base forte (righe 105-111); 

3 - calcolo del pH di una soluzione di 
acido debole (riga 120); 

4 - calcolo del pH di una soluzione di 
base debole (riga 130); 

5 - calcolo del pH di una soluzione di 
idrolisi (righe 150-220); 

6 - simulazione della titolazione di 
una soluzione di acido debole con 
una base forte (righe 250-390); 

7 - calcolo del pH di una soluzione 
formata da un certo volume di un 
acido debole a concentrazione nota 
con una base forte di volume e con- 


Listato 1. Il programma per lo Spectrum. 


2 CLS : PRINT AT "fina Lisi 

del pH" 

10 PRINT AT 7/0;”1-Reido forte 

U 

11 PRINT "2-Base forte" 

12 PRINT "3-Rcido debole" 

13 PRINT "4-Base debole" 

14- PRINT "S-Id ro lisi " 

15 PRINT "6-Tilo Iasione" 

16 PRINT "7-flnalisi ti trimetri 
ca 11 

17 PRINT "8-Titolezione acido 
diproti co" 

16 PRINT : PRINT : PRINT : PRI 
NT "Battere il tipo di scelta": 


PAUSE 0 



19 

IF 

INKEY* 


20 

IF 

INKEY* 

0 

22 

IF 

INKEY* 

0 

24 

IF 

INKEY* 

0 

26 

IF 

INKEY* 

0 




28 

IF 

INKEY * 

0 

30 

IF 

INKEY* 

0 

32 

IF 

INKEY * 

0 

34 

IF 

INKEY* 

0 





100 

INPUT "C= 

N 

GO 

TO 

102 


101 

LET 

h = -LN 

- 

14) ) 

/2) 

: LET 1 


pH=”;h: STOP 

102 LET h = -LN C: LET h=h/LN 10: 

PRINT "pH = " ; h : STOP _ L 

105 LET h=-LN C/LN 10: LET h =1«- 
-b: PRINT "pH=”;h: STOP 

110 INPUT "C = " ; C : IF C >le-6 THE 
N GO TO 105 

111 LET h =-LN ((c+SGR (C*C+4*le 
-14) ) /2) /LN 10: LET h=14-h: PRIN 
T "pH=";h: STOP 


120 PRINT : INPUT "C=";c: PRINT 
"C«";c: INPUT "Ha ="iX : PRINT "K 
aa"ìk: LET b =-LN (SOR (k*C) ) /LN 
10: PRINT "pH=";h: STOP 
130 PRINT : INPUT C: PRINT 

”C=";c: INPUT "Kb*”;X : PRINT "K 
b = “ ; K: LET h=~LN (SOR fk*C) ) zLN 
10: PRINT "pH = "; 14 —h: STOP 
150 PRINT : PRINT "Ka o Kb<a/bJ 
7": PAUSE 0: IF INKEY * = " b" THEN 
GO TO 220 

200 PRINT : INPUT "Ka=";K: PRIN 
T "Ka *” ; K : INPUT "C = ";C: PRINT " 
C*";c: LET b =-LN (SOR ( ( le -14/K ) 
tt))/i-N 10: PRINT "pH = " ; 14--b : ST 
O P 

220 PRINT : INPUT "Kb= ";X: PRIN 
T "Kb=";k: INPUT "C*";c: PRINT " 
C=";c: LET b = -LN (SOR (de-14/X) 
*C))/LN 10: PRINT "pH=";b: STOP 
250 CLS : PRINT RT 0,0;"Titolaz 
ione acido debole-base": PRINT " 
forte" 

260 PRINT : PRINT : INPUT "C.ac 
ido ;c: PRINT "C.acidc="; c : INF 
UT "Hot.acido*";h: PRINT "Uol.ac 
ido = " ; b : INPUT "Ka=”;X: PRINT ”K 
a *";X : INPUT "C.base=";e : PRINT 
"C-. base = " ; e : INPUT ”Uar - vo lurne =" ' 
; d : PRINT "Uar . vo lurne = "; d 
270 PRINT : PRINT : PRINT "final 
isi O grafiCo<a/ 9 )?": PAUSE 0: I 
F INKEY * = "g" THEN GO SUB 900: GO¬ 
TO 950 
275 CLS 

260 LET Z = -LW (SOR (SK.U/LN 1© 

: LET Z=(INT (Z*1005/100): PRINT 
"PH iniziate = ";z 
230 LET 3=0 
300 LET a =3 + d 
305 LET b=h*c-a*e 
310 IF b < =0 THEN GO TO 330 

315 LET p=-LN (X*b/<a*e)>/LN 10 

316 LET P=INT (10O*p)/100 

320 PRINT "Uolume="; a ;" ";"PH 

taapone=";p 

325 GO TO 300 

330 LET q=(ai6)/(h+a) 

34.0 LET p =14.fLN (SOR (tle-145./X 
*g) ) /LN 10 

345 LET P = INT (100*p)^i00 


10 


















Titolazione 
lo Spectrum 


330 PRINT "Volume =”; a; ” ";"PH 

idrolisi=";p 
353 LET i=a +h : LET a =0 
330 LET a=a+d 

365 LET p=14+LN ( < <a *e ) / ( i +a ) ) ) 

/LN 10 

366 LET P=INT (P+100J/I00 

370 PRINT "Uol.base eccesso:”;a 
;TRB 22; "pH = "; p 
380 IE a <=h -1 THEN GO TO 360 
300 LET 9 * < INT <p+I>>: PRINT "P 
H asintoti co=“;9: PAUSE 0: ir IN 
KEY*="f" THEN STOP 
391 GO SUB 900: GO TO 950 
400 CLS : INPUT "C.a cidO*",c: F> 
RINT "C. acido*”;c: INPUT "Ka=",K 
: PRINT "Ka = ” ; K : INPUT "U.acido* 
" ;v: PRINT "U. aci do*"; v: INPUT ” 
C. base*",e: PRINT ”C.base*"; e : I 
NPUT ”U.base = " ;d: PRINT "v.base* 
"; d 

402 LET bs(ViC)-(die) : LET i = (d 
+e ) / (v *d) 

403 ir b >0 THEN GO TO 406 

404 IF b =0 THEN GO TO 407 

405 IF b <0 THEN GO TO 410 

406 LET h=-LN ( ( K *b) / ld*e J )/LN 

10: LET h=INT (h*100» /100 : PRINT 

: PRINT : PRINT : PRINT "Tawpon 
e a pH="ih: PAUSE 0: GO TO 1 

407 LET w*SOR ( ( le -14/IO *»> : LE 
T h = 14 +LN W/LN 10: LET b = INT (h* 
100) /100 : PRINT : PRINT : PRINT 

: PRINT “Idi'O tisi : pH = ”; h : PAU5E 
0: GO TO 2 , _ 

410 LET w=(ABS b>/(v+d): LET h* 
14+LN W/LH 10: LET h =INT (h*100) 
/X 00: PRINT : PRINT : PRINT : PP. 
INT “pH=";h; PAUSE 0: GO TO 2 

411 STOP 

300 CLS : PRINT AT 0,0;”Ese»piO 
di titolazione di acido”; PRINT 
” diprotico” 

501: PRINT " (100 »l> 

II 

512 PRINT : PRINT : PRINT : PRI 
NT : INPUT "Kl*";k: PRINT ”K1=”; 
k: INPUT ”K2 *”;V : PRINT ”K2«”;W: 

INPUT "C.acido*”;c: PRINT "C.ac 
ido C: INPUT "U.base*";V : PRIN 
T "U.base = ";v 

640 LET »=0 

641 PRINT : PRINT : PRINT "gflf 

ico <s/n >7": PAU5E 0: ir INKEV**" 
5" THEN GO TO 750 _ 

650 CLS : LET h=SOR <K*C): LET 
h *-LN h/LN 10 : LET h *INT (h*100> 
,-100: PRINT "PH inizia le*"; h 
660 LET «*»+v: PRINT "Vol.bHI* 
”;m: ir «*50 THEN GO TO 690 
670 LET g * (100-m *3) /f« *2) : LET 
h =k#g: LET h *-LN h/LN 10; LET h« 
INT (h*100)/100: PRINT "pH =";h 
680 ir «<50 THEN GO TO 660 
S90 LET h=SOR (km) : LET h *-LN 
h/LN 10: LET h*INT (h*100>/100: 
PRINT "I punto di equi va lenza :pH 
*" ; h 

700 LET »*»+v: PRINT "U.base*"; 
m: ir m *100 THEN GO TO 730 
710 LET 9* (100-S») / («-50) : LET h 
=w*g: LET h■-LN h/LN 10; LET h*1 


NT (100 ah) /100: PRINT "pH*";h 
720 ir «<100 THEN GO TO 700 
730 LET h=6GR ( (le-14 + C)/«) : LE 
T h*14+LN h/LN 10: LET h*INT (10 
0 *h ) /100 : PRINT "II punto di *<JU 
iva lenza : pH = ”;h : PAUSE 0: ir INK 
EYIs'T THEN STOP 
740 GO TO 2 
750 GO SUB 900 

799 LET « *0 

800 LET h*SQR (k*C) : LET h=-LN 
h/LN 10: LET X =« : LET h*h*10: PL 
OT X +50jh +30 

810 LET »=»+v: LET x*■; ir ■ *50 
THEN GO TO 840 

820 LET g=<I00-»*2)/<»«R>: LET 
h*k#9: LET h*-LN h/LN 10: LET h* 

h #10 : PLOT X+50,h+3© . _ 

830 ir m<50 THÉN GO TO 810: LET 
X *50 

840 LET h*SOR (k*W): LET h =-LN 
h/LN 10: LET h*h+10: PLOT X +50, h 
+30 

850 LET m =» +V: LET X*»: IP «*10 

8 THEN GO TO 880 _ 

860 LET g * (100 —•)/(» —50J : LET h 
=W*g: LET h =-LN h/LN 10: LET h*h 

+ 10: PLOT X +50 , h +30 __ 

©70 ir «<100 THEN GO TO 850 
880 LET h=SQR (<le-i£*c >/»): LE 
T h = 14 +LN h/LN 10: LET x*100: LE 
T h =h +10 : PLOT X+50,h+30 
685 PAUSE 0: IP INKEY**"f" THEN 
STOP 

886 GO TO 2 

899 STOP 

900 CLS : PLOT 50,30: DRRW 200> 
0; PLOT 50,30: DRAW 0,140 

901 POR x *50 TO 250 STEP 10: PL 



19,12;"30": PRINT AT 19,18;"100 
": PRINT AT 19,29;"200" 

904 PRINT AT 9,4;"7"; PRINT AT 
0,4;"14": PRINT AT 21,17;"»l"; P 
RÌNT AT 9,0;"pH" 

905 RETURN 

950 LET Z * -LN (SOR (k*C)>/LN 10 
LET x *0 : LET z*z*10: PLOT X+50 
,Z +30 

960 LET a =0 . _ 

970 LET a *a +d : LET x=a 
980 LET b*h*C-a*e 
990 ir b < *0 THEN GO TO 1020 
1000 LET p *-LN (k*b/(a*e))/LN 10 
: LET p*p*10: PLOT X+50/P+30 
IO10 GO TO 970 
1020 LET b*c*e/(c+e) 

1030 LET p*14+LN (SOR (l*-14/k#b 
))/LN 10: LET p=p*l0: PLOT X+50, 

1040 LET i=a+h: LET a*0 

1050 LET a*a+d: LET x*a+h 

1060 LET P-14+LN ( ( (a*e> /(i +») ) ) 

/LN 10: LET p*p#10: PLOT X+50, P+ 

30 

1080 ir a < *h-1 THEN GO TO 1050 

1090 LET a *(INT p + 1): LET y*9 : P 
LOT (2+h+30),9+30: PAUSE 0: IP X 
NKEY**" f " THEN STOP 

1091 CLS : GO TO 250 
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EIN EDÌCOLA 




LA PRIMA 

E UNICA RIVISTA DI 
VIDEOGAMES 
GIOCOMPUTER 
GIOCHI ELETTRONICI 



,) c,= V' N j- C„= V -’ N > 

V,+V : V,+V: 


C» = Concentrazione acido 
Cb = Concentrazione base 

Vi = Volume dell’acido all’inizio della titolazione. 
V: = Volume della base all’inizio della titolazione. 
Ni = Concentrazione acido. 

N 2 = Concentrazione base. 


2) Soluzione tampone: 


r = V, N, - V: N ; 
V, + V 2 


Cb = 


Vi N; 
V, + Vj 


Ch 


[H* ] 


K V, N, - V,N : 
V 2 Nj 


Vi = Volume iniziale acido - volume base aggiunta. 
V 3 = Volume base dopo le varie aggiunte. 

B =V| Ni - V 2 Ni. Se B = 0. si avrà l’idrosili, 
e la concentrazione sarà: 

3 ) V'- Ni j n cu j v 2 è il volume della base aggiunta 

Vi + V 2 nel momento dell’idrolisi. 


Superato il punto di idrolisi, avremo: 


4) 


[ OH" ] = 


V N 

(V., + Vb) + V 


V = Volume della base aggiunta. 

N = Concentrazione base. 

Vi. = Volume dell’acido all’idrolisi. 
Vh = Volume della base all’idrolisi. 


Infine, per il calcolo dell’opzione 7, avremo, nel caso di 
base in eccesso rispetto all’acido: 


5) 


| OH’ ] = 


| V, N, - V; N : | 
V, + Vi 


Figura 1. L'insieme degli algoritmi di calcolo. 
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Leoni 


/- 

Leon \ inprmafica 

A 


HARDWARE & SOFTWARE 


V_ 

HOUSE 

_ J 


HOTLINE 

linea telefonica dedicata alla 
risoluzione dei problemi dei clienti. 
Chiamando il numero telefonico 
riservato che troverete sulla 
cartolina garanzia acclusa ai 
programmi, riceverete tutte le 
informazioni che vi necessitano. 


UPDATE 

servizio di aggiornamento continuo 
dei programmi acquistati. 

Ogni modifica ai programmi 
realizzati dalla Leoni Informatica 
sarà fornita agli utenti degli stessi. 


GARANZIA 

tutti i programmi Leoni Informatica 
sono coperti da garanzia a Vita 
contro guasti di origine. 


COMMODORE 64' SOFTWARE 


SOFTWARE PER COMMODORE 64 E PLUS/4 


Programmi in configurazione base (*) IVA esclusa 


Il presente listino entra in vigore 
dal 2Ssettembre 1984 


Cod. 

Descrizione 

Prezzo 

Cod 

Descrizione 

Prezzo 



PERSONALI 



0046 

Ammortamento Mutui 

60000 

0049/T 

Totoplus 

100000 

00 50/T 

Totocalcio a sviluppo colonnare 

80000 

0051/T 

Gestione dei Conti di casa 

100 000 

0058/T 

Calcolo dell'equo canone 

80.000 

0055/T 

Impariamo il BASIC 

100.000 

0059/T 

Modello 740 

10.0000 

0063 

Cento programmi BASIC 

80 000 

0066 

Conto corrente 

100 000 

009 t/T 

Rubnca telefonica 

100000 

0176 

Diary 64 (Commodore) 

95000 

0174/T 

Corso di Dattilografia 

80000 



GESTIONI GENERALI 


0047 

Anagrafiche 

150.000 

0056 

Dichiarazione I V A 

60.000 

0065/T 

Fido Clienti 

100 000 

0067 

Piano dei Conli (cli/lor/gen) 

100000 

0068 

Appuntamenti 

100000 

0071 

Ordini (cli/for) 

100000 

0090 

Mailing List (riordino alfabetico cap prov ) 

100.000 

0094 

Scheda 4800 car (cli/lor/rapp /az etc ) 

100 000 

0096 

Scheda 4800 car agganciata al Mailing 

150.000 

0097 

Super Mail (5 chiavi accesso, riordini ) 

180000 

0116 

Scadenziario ottetti (nc bancarie, tratte, etc ) 

100.000 

0120 

Contabililà Iatture (Iva. impon eie ) 

100000 

0121 

Contabilità Semplice (Tratte/falt /Conti/etc ) 

250000 

0160 

Bolle e Fatture 

200 000 

0125 

Contabilità Generale 032 colonne) 

300000 






GESTIONI SPECIFICHE 


0045 

Agenti e Rappresentanti 

150000 

0048 

Scadenziario premi e polizze 

150000 

0164 

Agenzie Immobiliari 

150 000 

0086 

Librene e biblioteche 

120000 

0148 

Studi Ottici 

200 000 

0151 

Farmacie 

300 000 

0149 

Studi Dentistici 

200 000 

0152 

Studi Medici 

200 000 

0131 

Hotel e Pensioni 

280.000 

0132 

Parrucchien 

280 000 

0133 

Gommisti 

280.000 

0134 

Clubs Nautici 

280.000 

0135 

Officine 

280 000 

0171 

Ristoranti 

280000 

0170 

Tavola Calda 

280 000 

0172 

Lavandeno 

280 000 

0175 

Condominio New (132 colonne) 

400000 






GESTIONE TESTI 



0190 

Hes Wriler 

70000 

0191 

Word Processor III 

100.000 

0192 

Bank Street Wnter 

70000 

0319 

Easy Script/T (Commodore) 

75000 



TECNICI 



0136 

Legge 373 (calcolo degli isolamenti termici) 

100000 

0140 

Ingegneria civile 1 (calcoli strutt ) 

100.000 

0141 

Ingegneria civilo II (travi intelaiate) 

100 000 

0404 

Computo metrico 

200 000 

0409 

Diagnostica C64 

40 000 

0322 

Doctor 64 

60 000 



MAGAZZINI 



0142 

Magazzino e Fatturazione somplici 

100000 

0143 

Magazzino Grossisti (2500 art) 

280.000 

0144 

Magazzino o Fatturazione agganciati 

200 000 

0158 

Magazzino Dettaglio (2500 art ) 

280.000 

0148 

Magazzino codice alfanumerico (600 art ) 

200 000 

0159 

Magazzino Taglia/Col (2500 ari ) 

280 000 



LINGUAGGI & UTILITIES 


0162/T 

Screen Grafi* (Abacus) 

85000 

0163 

Copia Disco singolo 

50 000 

0064 

Petspeed Compiler (Commodore) 

80 000 

0165/T 

Zoom 

70000 

0167 

Simon s Basic (Commodoro) 

85000 

0168/T 

Turbo Tape 

50000 

0177 

Pilot (linguaggio) 

70000 

0178 

Ultra Basic 

125000 

0179 

Comp/Scompactor 

50 000 

0193/C 

Basic 4 0 

80000 

0194 

Spnte Generator 

70000 

0195 

Assembler 

8O00O 

0196 

SAM (Tromx) 

100 000 

0197 

G-Pascal 

95000 

0198 

Forth 64 (Commodore) 

95000 

0199 

Tol 64 

85000 

0200 

Master (Commodore) 

145 000 

0201/C 

Scheda CP/M (Commodore) 

125000 

0333 

Clone machino 

100.000 

0334 

Unguard 

200 000 

0335 

Fasi Copy 4 5 

too.ooo 

0336 

Music Composer 

150.000 

0337 

Basic Programm Generator 

250.000 

0338 

Copy Filos 

80.000 

0320 

The MANAGER 64 

100.000 

0321 

Austro Compilatore 

80000 

0210 

Lite Pen (incluso sotfware) 

130000 






GESTIONE DATI 



0157 

Easy Cale 

125000 

0205 

Super Baso 

175.000 

0206 

Magic Desk (Commodore) 

75000 

0207 

Koala Joystick 

100.000 

0209 

Dala Log. 

120 000 

0220 

Easy Cale Tape 

125000 

0400 

Stock Control 

120 000 

0401 

Easy Label 

120 000 



N.8. (*) Per configurazione base si intende Commodore 64. Floppy 1541. Stampante Commodore a 80 colonne. 
I codici barrati T sono disponibili anche su cassetta, quelli barrati 'C sono Carlridge 

Direzione Commerciale» via Valsolda, 21 
20143 MILANO - tei. 02/8467378 


infamati ca 


Negozio vendite al pubblico: Milano - Corso di Porta Romana, 123 
















IL LIBRO PIU' 
STRAORDINARIO 
PER UNO STRAORDINARIO 

COMPUTER 


Ci ; 

\ 



Animazioni - Architetti - Arredamento - Automobili - 
BancheBarche - Brevetti - Business grafica - Carte 
intestate - Cartelli indicatori - .Cataloghi - Cinema - 
Circuiti integrati - Convegni/Corsi - Descrizioni - 
Design - Dentisti - Disegnatori - Economia/Finanza - 
Edilizia - Editoria - Elettricisti - Elettronica - Enigmistica 

- Esercito - Falegname - Fonts - Fumetti - 
Giardinaggio - Gioielli - Graffiti - Grafici - Identikit - 
Informatica - Immagini grafiche - Ingegneria - Linee 
aeree - Marchi industriali - Mobili -, Moda - 
Modellistica - Mostre/Saloni - Moto - Musica - Negozi 

- New York - Organigrammi - Orologi - Piante stradali 

- Pittura - Pubblicità - Regali - Robot - Scacchi - 
Scultura - Scuola - Simboli - Simmetrie - Space shuttle 

- Topografia - Urbanistica - Videogiochi - Vignette. 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 


402 D 

L. 30.000 



□ Pagherò conlrassegno al pestino il prezzo indicalo più L. 3.000 per contributo lisso 

■pese di spedizione. 


Condizioni di pagamento con esenzione del contdbulo spese di spedizione: 

□ Allego assegno della Banca . □ Allego fotocopia del versamento 

su c/c n 11666203 a voi intestato 



GRUPPO 

EDITORIALE 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


□ Allego fotocopia di versamento 

n°_I_ su vaglia postale a voi intestato 


Nome 

Cognome 

Via 

Cap 

Città 

Prov 

Data 

Firma 



Spazio riservato alle Aziende. SI richiede l’emissione di fattura 

Partita I.V.A. 1_1_1_1_1_1_1_1_1_1_1_1 

ordine 

minimo 

L. 50.000 





































Titolazione 
lo Spectrum 


H* = \/ Ki • C pH iniziale. 

H* = ((100 - 2V)/(2 V)) • Ki pH sino a 50 mi non 

comprensi. 

H‘ = \/ Ki • K 2 pH a 50 mi (I punto di 

equivalenza). 

H* = ((100 — v)/(v - 50)) • K>pH tra 51 e 99 mi. 

H' = \f (le - 14 • C)/K 2 pH a 100 mi (II punto 

di equivalenza). 

K| = Costante di dissociazione primo idrogenione. 

Kj = Costante di dissociazione del secondo idrogenione. 

C = Concentrazione dell’acido e della base. 

V = Volume della base. 

Figura 2. Algoritmi per la titolazione dell'acido 

diprotico. 




é in edicola 



UNA PUBBLICAZIONE FIRMATA 

GRUPPO EDITORIALE JACKSON 
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Titolazione 
con Io Spectrum 


Figura 4. Un esempio di esecuzione. 


Ti to i azions acido debole—base 
forte 


C.acidos. 001 

uoi.acido = 100 
Ka =.000018 
C.base =.001 
uar.vo lume =10 


nna i 
PH i 

uo lu 

Uo l U 
uo lu 
uo lu 
UO lu 
Uo l u 
UO lu 
UO lu 
UO lu 
uo lu 

UO l . 
UO l . 
UO l . 
UO l . 
UO l . 

uo i. 
uo i. 

UO l . 
UO l . 
UO l . 

a 

PH 


i £■ i O 9 
niziaie 
me =10 
me =20 
me =30 
me =4-0 
m e =50 
me =60 
me =70 
me =80 
me =90 
me =100 
base in 
base 
base 
base 
base 
base 
base 
base 
base 
base 


rafico 
= 3.67 
PH ta 
PH 
PH 


i n 
i n 
i n 
i n 
i n 
i n 
i n 
i n 
ì n 


PH 

PH 

PH 

PH 

PH 

PH 

pH 


t a 
ta 
t a 
t a 
t a 
ta 
ta 
t a 
i d 


e c ces 
e c c e s 
e c ces 
e c ces 
e c ces 
e c ces 
ecces 
e c ces 
ecces 
ecces 


<a/g>? 

«pone» 
«pone= 
«pone» 
«pone» 
«pone» 
«pone= 
«pone 
«pone» 
«pone» 
colisi 
SO : 10 
SO : 20 
S O : 30 
SO : 4-0 
SO : 50 
SO : 60 
S O : 70 
SO : 80 
SO : 90 
SO : 100 


3.79 
4-, 14- 
4.37 
4.56 
4.74 
4.92 
5 . 11 
5.34 
5.69 
=8.44 
PH=9.67 
pH=9.95 
p H =10.11 
p H = 10.22 
p H = 10.3 
PH=10.36 
pH=10.41 
pH = 10.45 
pH=10.49 
p H = 10 » 5 


asintoti co =n 


Titolazione acido debole-base 

C.a cido =0 
Uol.acido =0 
Ka =0 

C. base =0 
uar.volume =0 


Ftnaii&i o grafi coia/g»? 
C. acido*.01 
Ka =.000018 

u.a cido =100 
c.base =.01 
v . base =30 


Tampone a pH=4.37 

C.OCido».01 
Ka = .000018 

u. a cido =100 
C.base = .01 

v. base =100 


IdeoliSi :pH=8.37 


Esempio di titolazione di acido 
diproti co 
(100 mi) 


K1=.0013 
K2=l.5E-10 
C.acido».001 
U.base =10 


grafico <s/n>? 

PH inizia le =2.94 

uol.base =10 

PH =2.28 

Uol.base =20 

pH =2.7 

Uol.base =30 

pH =3.06 

Uol.ba3e *4© 


PH *3.48 
Uol.base =50 

I punto di equi va lenza :pH=6.35 

U.base=80 

pH=9.22 

U.base =70 

PH=9.64 

U.base =80 

p H = 10 

U.base =90 

PH=10.42 

U.base*100 . ., „_ . „ 

XX punto di equivalenza.pH=10.41 


Titolazione acido debole-base 


C.acido=.01 
Uol.acido =100 
Ka-.000018 
C.base =.01 
Uar.volume=10 


inalisi o grafico<a/g>? 
pH iniziale=3.37 
Uo lume =10 pH tampone =3.79 

Uo lume =20 pH ta»pone=4.14 

Uolume=30 pH ta»pone=4.37 

Uolume=40 pH tampone=4.56 

Uolurae=50 pH tampone=4.74 

Uolume=60 pH tampone=4.92 

uo lume =70 pH tampone=5.11 

Uolume=80 pH taepone=5.34 

Uolume =90 pH tampone*5.69 

Uoiume=100 pH idrolisi 

Uol.base in eccesso:10 pH=10.67 

eccesso:20 pH=10.95 
eccesso:30 pH=ll.11 
eccesso:40 pH=11.22 
eccesso:50 pH=11.3 

eccesso:60 pH=ll.36 
eccesso:70 pH=11.41 

eccesso:80 pH=ll.45 
eccesso:90 pH=11.49 
eccesso:100 pH=11.5 


Uol.base i n 
Uol.base in 
Uol.base in 
Uol.base in 
Uol.base in 
Uol.base in 
Uol.base in 
Uol.base in 
Uol.base in 
2 

pH asintotico=12 



C.a cido =.001 
Ka =.000018 

u. a cido =100 
C.base *.002 

v. base =45 

Tampone a pH=S.69 

C.acido*.001 
Ka =.000018 
U.a cido=50 
C.base =.002 
v.base =60 
PH=10.8 
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Libri firmati JACKSON 


Pierre Lotigie-Laurent 

UN PERSONAL COMPUTER FIRMATO IBM 

Il libro offre una panoramica completa sul 
Personal Computer IBM. Comincia col descrivere 
l'hardware, passa poi alle due applicazioni, alla 
programmazione e ai sistemi operativi. 

Illustra le diverse configurazioni che si possono 
realizzare per soddisfare esigenze di utenti diversi, 
e finisce con un breve manuale per l'installazione 
e l'uso. 

Una preziosa prefazione all'Edizione Italiana 
integra ed aggiorna l’edizione originale. 

L’immagine che ne esce, grazie allo stile e al 
linguaggio, è quella di un'informatica abbordabile 
e cordiale, pronta a venire in aiuto sul lavoro e a 
istruire e divertire in famiglia. 

152 pagine. 

Codice 404H L. 15.000 


Stanley R. Trost 

PROGRAMMI UTILI PER IBM PC 

Il libro presenta una serie di oltre 65 programmi 
per il Personal Computer IBM, ampiamente 
collaudati e pronti per l'uso. 

Dopo una breve introduzione, che vi metterà in 
grado di usare i programmi proposti, seguono i 
programmi stessi suddivisi per capitoli: finanza e 
bilancio familiare, gestione commerciale, beni 
immobili, analisi di dati, registrazione di dati, 
esercizi di matematica. 

I programmi sono da "usare", e il libro non ha la 
pretesa di insegnarvi la programmazione in 
BASIC, ma proprio l'uso dei programmi vi porterà 
gradualmente, e quasi automaticamente, ad 
apprenderne le tecniche fondamentali; può essere 
un buon punto di partenza per diventare voi stessi 
programmatori. 

E proprio per aiutarvi in questo, nelle Appendici è 
presentata una serie di sottoprogrammi di uso 
generale, usati dai programmi del libro;-e vi viene 
spiegato con facili esempi come inserirli nei vostri 
nuovi programmi per risparmiare tempo e fatica. 
180 pagine. 

Codice 564 D L. 15.000 
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Titolazione 
lo Spectrum 

centrazione noti (righe 390-411); 

8 - calcolo del pH di una soluzione di 
acido diprotico debole con una base 
forte durante una titolazione (righe 
500-730). 

Le formule usate per le opzioni 
1-5 sono facilmente reperibili su 
qualsiasi testo di chimica, mentre 
per le rimanenti una tabella a parte 
illustrerà gli algoritmi usati. 

Per il calcolo del pH di acidi e basi 
forti, c’è un controllo per verificare 
se la concentrazione è diluita (meno 
di IO' 6 M). 

Se la soluzione è diluita, viene appli¬ 
cata una formula correttiva che tie¬ 
ne conto degli idrogenioni dell’ac¬ 
qua ed impedisce grossolani errori 
(pH 8 per una soluzione di HCI IO 8 
M). 

Per il pH della titolazione, una ta¬ 
bella illustra il relativo flow-chart. 
Si noti che quando il volume della 
base aggiunta, supera di tre volte il 
volume iniziale dell’acido, il pH, or¬ 


mai asintotico, viene calcolato nella 
riga 390. 

Per quanto riguarda la titolazione 
dell’acido diprotico, per semplicità 
si è assunto che le concentrazioni 
dell’acido e della base fossero uguali 
ed inoltre il volume di acido da tito¬ 
lare fisso (100 mi). 

La grafica è molto semplice. Le ri¬ 
ghe 900-905 costituiscono la su¬ 
broutine che disegna gli assi e le divi¬ 
sioni della scala di riferimento con le 
relative scritte. 

Le righe 950-1090 ricalcolano i 
vari valori di pH durante la titola¬ 
zione e li ploltano sul grafico. Ana¬ 
logamente le righe 799-885 provve¬ 
dono a tracciare i punti della titola¬ 
zione dell’acido diprotico. 

Non si sono utilizzate delle subrou¬ 
tine che calcolassero una volta sola i 
valori di pH della titolazione sia per 
i grafici che per la tabulazione dei 
valori stessi, perché sarebbero risul¬ 
tate molto più complicate e più lun¬ 


ghe della semplice ripetizione degli 
algoritmi e per i grafici e per le tabu¬ 
lazioni. L’esecuzione del program¬ 
ma è semplicissima: basta dare il 
RUN e seguire le indicazioni del 
programma immettendo i dati ri¬ 
chiesti. Alla fine del calcolo richie¬ 
sto, il programma o si ferma da solo, 
oppure si preme la lettera “f”;cioè 
fatto perché in alcune opzioni (ad 
esempio la 7) può essere comodo 
impostare continuamente altri dati e 
fermare il tutto alla fine della ricer¬ 
ca. 

Un’ultima avvertenza: è bene che 
la concentrazione dell’acido da tito¬ 
lare non sia troppo bassa (l’opti¬ 
mum è tra IO' 1 -r- IO" 3 M) perché 
altrimenti al pH iniziale e nei punti 
di equivalenza c’è interferenza degli 
idrogenioni dell’acqua. In questi ca¬ 
si bisogna introdurre algoritmi di 
calcolo alquanto più complicati, che 
rientrano già nel lavoro più speciali¬ 
stico. ■ 
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CENTRO COMMERCIALE 
AMERICANO 


Via Gattamnlala 5 20149 Milano 
lei 02/4696451 Telex 330208 USIMC I 


Tutte le più sofisticate proposte 
della tecnologia americana nel 
settore dell'informatica 
“concentrate" in un’unica mostra, 
una mostra che specializzandosi 
ulteriormente di anno in anno, è 
giunta alla XIV edizione. 
Riproponendo un’iniziativa che già 
lo scorso anno è stata accolta con 
grande interesse dagli operatori del 
settore, un intero padiglione verrà 
dedicato esclusivamente al 
COMPUTER GRAPHICS ed alle sue 
applicazioni. 

In concomitanza con la mostra e 
quale momento di aggiornamento 
e approfondimento delle più attuali 
tematiche deH'informatica, si 
terranno due seminari di studio: 

6-7 FEBBRAIO - in collaborazione 


con la CITIBANK NA: "Cinque 
tecnologie innovative per 
l'informatica e loro applicazioni: 
integrazione circuitale, optical disc, 
I/O voice, business graphics e 
linguaggi della quarta generazione". 
Coordinatore: Dr. Gianfranco Minati. 
Quota di partecipazione: 

Lire 200.000. 

8 FEBBRAIO: “La grafica nella 
realtà aziendale e industriale". 
Coordinatore: Ing. Roberto Favero. 
Quota di partecipazione: 

Lire 100.000. 

Per ulteriori informazioni sulla 
mostra e sulle modalità di 
partecipazione al seminario, 
contattare: CENTRO COMMERCIALE 
AMERICANO - TEL. 02/4696451 - 
TELEX 330208 USIMC I. 




Word processor 
_per TI99/4A — 




Per studiare 
con il computer 
e immagazzinare tutto 
su nastro magnetico 

di Stefano di Tommaso 

Introduzione 

C osa significa possedere un 
personal computer? Mol¬ 
to spesso significa utiliz¬ 
zarlo per mille cose che altrimenti 
sarebbero state fatte con procedure 
tradizionali. 

Tra queste sicuramente l’elementare 


operazione del prendere carta e ma¬ 
tita e scrivere degli appunti. Ma per 
far ciò con il computer bisogna che 
in memoria vi siano delle istruzioni 
che ordinano al computer di riceve¬ 
re gli appunti sotto forma di dati, di 
catalogarli e di trasferirli in memo¬ 
ria. 

Da queste elementari considerazio¬ 
ni hanno avuto l’avvio i primi pro¬ 
grammi di trattamento dei testi, cioè 
di word processing, con l’aggiunta 
però di numerose sofisticazioni in 
ordine alla possibilità di maneggiare 
i testi stessi, modificarli in tutto o in 
parte, ricomporli in ordine eccetera. 
Presentiamo in questo numero fi¬ 
nalmente qualcosa di simile anche 
per i lettori che dispongono del Te¬ 


xas TI99/4A, spiegandone inoltre il 
funzionamento ed il modo in cui è 
strutturato. 

Cosa può fare 

È un programma che vi permette¬ 
rà di scrivere tutto quello che volete 
sul video del vostro computer sfrut¬ 
tandone le buone capacità di editing 
per spostare le parole FCTN 
(2)+SPACE BAR; cancellarle 
FCTN ( 1 ); inserirle FCTN (2) + PA¬ 
ROLA, scrivendo riga per riga, pa¬ 
gina per pagina, per poi trasferire le 
pagine su cassetta in maniera abba¬ 
stanza efficiente. 

Inoltre potrete rileggere tutto quan¬ 
to scritto, oppure solo una parte. 


Listato 1. // programma Word processor. 

??? 

1000 CALL CLEAR 
1010 CALL SCREEN(5) 

1020 CALL COLOR(13,3,3) 

1030 FOR 1=1 TO 170 
1040 READ V,H 
1 050 CALL VCHAR(V,H,1 28,1 ) 

1060 DATA 4,7,4,11,4,13,4,14,4,1 
5,,16,4,17,4,19,4,20,4,21,4,22, 
4,24,4,25,4,26 

1070 DATA 5,7,5,11,5,13,5,17,5,1 

9.5.22.5.24.5.27 

1080 DATA 6,7,6,11,6,13.6,17,6,1 

9.6.22.6.24.6.27 

1090 DATA 7,7,7,9,7,11,7,13,7,17 
,7,19,7,21,7,24,7,27,8,8,8,10,8, 
13,8,14,8,15 

1100 DATA 8,16,8,17,8,19,8,22 
1110 DATA 8,24,8,25,8,26 
1120 DATA 10,3,10,4,10,5,10,6,10 
,8,10,9,10,10,10,11,10,13,10,14, 
10,15,10,16,10,18,10,19,10,20,10 
,21 

1130 DATA 10,23,10,24,10,25,10,2 
6,11,3,11,6,11,8,11,11,11,13,11, 


16,11,18,11,23,12,3,12,4,12,5,12 

,6 

1140 DATA 12,8,12,11,12,13,12,16 
,12,18,12,23,12,24,12,25,12,28,1 
2,29,12,30,13,3,13,8,13,10 
1150 DATA 13,13,13,16,13,18,13,2 
3,14,3,14,8,14,11,14,13,14,14,14 
,15,14,16,14,18,14,19,14,20,14,2 
1 

1160 DATA 14,23,14,24,14,25,14,2 
6 

1170 DATA 16,3,16,4,16,5,16,6,16 

,8,16,9,16,10,16,11,16,13,16,14, 

16,15,16,16,16,18,16,19,16,20 

1180 DATA 16,21,17,3,17,8,17,13, 

17,16,17,18,17,21,18,3,18,4,18,5 

,14,6,18,8,18,9,18,10,18,11,18,1 

3 

1190 DATA 18,16,18,18,18,21,19,6 
,19,11,19,13,19,16,19,18,19,20,2 
0,3,20,4,20,5,20,6,20,8,20,9,20, 

1 0 

1200 DATA 20,11,20,13,20,14,20,1 

5,20,16,20,18,20,21 

1210 NEXT I 

1 220 CALL COLORII 3,5,5) 

1230 FOR OOL=1 TO 12 



















Seguito listato Word processor. 

1240 CALL COLOR(COL,2,10) 

1250 NEXT COL 

1260 CALL CHAR(128,"FFFFFFFFFFFF 
FFFF") 

1270 GOSUB 2740 
1280 PRINT " 


WORD PROCESSOR 

Il • . 

1 29Ò'p'RTNT‘' r “OPZIONI : 


1300 PRINT " premi": : 

1310 PRINT "(l)se vuoi leggere i 
files (2)se vuoi scrivere pagi 
ne (3)se hai finito 
(4)se vuoi registrare i dati" 
1320 PRINT "(5)se vuoi rileggere 
pagine(6)se vuoi aggiornare pa 
gine(7)se vuoi cancellare tutto" 

1330 R=0 

1340 CALL KEY(0,R,ST) 

1 350 IF ST=0 THEN 1340 

1360 IF (R<49)+(R>55)THEN 1340 


1370 ON R-48 GO SUB 1940,1410,13 
90,2110,2260,2450,2650 
1380 GOTO 1270 

1390 DISPLAY :::::::::: 

: : CIAOOOOOO.: 

• •••••• 

1400 END 

1410 DIM A$(23,10) 

1420 GOSUB 2740 

1430 INPUT "quante pagine al mas 
simo ?":N 

1440 IF N>10 THEN 1430 

1450 INPUT "da quale pagina se 

rivi ?":PP 

1460 IF PP>N THEN 1450 

1470 GOSUB 2740 

1480 FOR C=PP TO N 

1490 PRINT : : :TAB(9);STR$(C)&" 

~a pagina": : : 

1500 FOR I=RI+1 TO 23 
1510 INPUT A$(I,C) 

1520 IF LEN(A$(I,C))>28 THEN 153 
0 >LSE 1550 

1 530 A$(I,C)=SEG$(A$(I,C) ,1 ,28) 

1540 PRINT A$(I,C) 

1550 CALL KEY(0,RED,STRED) 

1560 IF STRED=0 THEN 1550 


modificare, aggiornare e cancellare 
tutte le pagine. 

Se si dispone di una stampante ba¬ 
sterà l’aggiunta di poche istruzioni 
per averne una copia su supporto 
cartaceo. 

Il programma comunque è riferito 
alla configurazione di sistema più 
diffusa da noi, cioè: console, televi¬ 
sore, registratore a cassette. 

Con questo tipo di applicazione è 
possibile sfruttare un vantaggio es¬ 
senziale del Texas TI99/4A nei con¬ 
fronti di molti suoi concorrenti: 
quello di poter usufruire di una co¬ 
moda tastiera di tipo professionale. 
Praticamente dunque sarà come 
battere a macchina, con in più la 
possibilità di cancellare gli errori, 
scrivere ordinatamente, trasferire le 
pagine scritte su cassetta in pochi 
minuti di registrazione e... "sigillar¬ 
le" con un proprio codice segreto. 
Infatti bisognerà conoscere sia la 
parola (o le parole)-chiave, per acce¬ 
dere alla lettura del nastro magneti¬ 
co, sia il numero del file sul quale si è 
trasferito il testo scritto, altrimenti il 
programma si ferma. Da notare è 
che la parola-chiave non è scritta nel 


listato, ma sul nastro stesso, e non si 
potrà mai leggerla: bisogna cono¬ 
scerla. 

Data la limitata estensione della me¬ 
moria RAM del computer non è 
possibile inserire contemporanea¬ 
mente in memoria più di 10 pagine 
dattiloscritte. Ma ciò non costituisce 
un reale limite all’operatività del 
programma poiché si possono cari¬ 
care i dati sul supporto magnetico e 
continuare nella scrittura finché si 
vuole. 

Su una cassetta di tipo C 60 sarà 
possibile inserire fino a 70 pagine 
dattiloscritte. Con un buon rispar¬ 
mio d’ingombro, dunque. 


Come funziona il programma 

Il programma si apre con il titolo 
word processor scritto su tutta l’am¬ 
piezza del video, mentre si compone 
lentamente, riga per riga, per poi 
cancellarsi con lo scrolling orizzon¬ 
tale, da sinistra verso destra. 

A questo punto compare il menù 
d’apertura, riportato nella figura 1. 
Ai punti ( 1 ) e (4) ci si rivolge diretta- 


WORD PROCESSOR 
OPZIONI 

Premi 

(1) Se vuoi leggere il file 

(2) Se vuoi scrivere pagine 

(3) Se vuoi finire 

(4) Se vuoi registrare i dati 

(5) Se vuoi rileggere pagine 

(6) Se vuoi aggiornare pagine 

(7) Se vuoi cancellare tutto 

Figura 1. Il menu d'apertura. 


mente all’utilizzo dei file, rispettiva¬ 
mente, per estrarli dal nastro, e per 
scriverli. Non prima però di aver 
scritto la parola segreta ed il numero 
del file, separati da una virgola. Al 
punto (2) si va a scrivere nuove pagi¬ 
ne, scegliendo il numero totale delle 
pagine da comporre, e la prima pa¬ 
gina dalla quale scrivere. Per esem¬ 
pio si può scegliere di scrivere su 8 
pagine a partire però dalla 4 pagina, 
se le precedenti 3 erano già state 
scritte. 

Si scrive di riga in riga (figura 2) 
componendo le parole fino all’esat¬ 
ta lunghezza di ogni riga, con 28 
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ibri firmati JACKSON 


Roberto Rigo 

SPECTRUM TOOL 
Programmi di utilità, grafica e gioco 

Una giusta via di mezzo tra la praticità di uso e la 
velocità di esecuzione di un programma è 
rappresentata dall'uso combinato del BASIC e del 
linguaggio macchina; la conoscenza di quest'ultimo è 
comunque indispensabile per poter sfruttare a pieno il 
proprio calcolatore. 

Questa è la premessa da cui parte l’autore, per 
proporre una serie di interessanti programmi BASIC 
che si servono di routine scritte in linguaggio 
macchina. 

182 pagine 

Codice S54D L. 15.000 


Joseph Kascmer 

FACILE GUIDA AL COMMODORE 64 


Questo libro vi insegnerà in poche ore ad usare il 
vostro Commodore 64, cominciando dalla tastiera e dal 
video, per passare poi alle altre periferiche più comuni, 
l'unità a dischi e il registratore a cassette. 

Imparerete con estrema semplicità a scrivere 
programmi in BASIC, ma se questo non è il vostro 
obiettivo potete "saltare" i Capitoli dedicati alia 
programmazione e imparare invece come utilizzare 
"pacchetti" di software preconfezionati. 

140 pagine 

Codice 400D L. 13.500 


Francesco Lentini 

CONOSCI TE STESSO TRAMITE IL TUO 
PERSONAL COMPUTER 

Il libro si compone di cinque capitoli, ognuno dei quali 
attinge ad una delle discipline che affrontano in 
qualche modo lo studio della personalità umana: 
Numerologia, Astrologia, Grafologia, Scienza del 
Comportamento, Test di Intelligenza. 

I programmi sono stati scritti per Apple II e sono 
disponibili su cassetta e dischetto; nelle due Appendici 
ci sono i consigli necessari per adattarli a qualsiasi 
altro PC della stessa generazione. 

128 pagine 

Codice 4010 L. 12.000 
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Firma 


Spazio riservato alfe Aziende. Si richiede l'emissione di fattura 
Partita I.V.A. 


ORDINE 
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Il Jocksomano ha 9 Basic 

Video Basic, corso su cassetta per parlare subito 


Oggi è davvero tacile imparare il Basic, con 
Video Basic il corso su cassetta che ti permette 
di programmare subito il tuo computer. È facile: 
tu chiedi, lui risponde, tu impari. 

Passo dopo passo. Sul tuo schermo 
appaiono le domande, le risposte, gli esercizi 


e tu, senza fatica, presto e bene, impari 
a dialogare col tuo computer, sia un VIC 20, 
un Commodore 64 o un Sinclair 
Video Basic è in edicola. Provalo subito. 

Oggi il Basic si impara così. 




UlDfO 


tsOBStl 




COMMO 


'* k :48KPU)S 


col tuo computer. 


In omaggio 

una fantastica cassetta giochi 


GRUPPO ETHOS 







Word processor 
per TI 99/4A 



y Pagina 

Caro Erncsio, 

bla bla 

bla bla bla bla bla bla 

bla bla 

bla bla bla bla bla bla 

Figura 

2. La scrittura avviene di riga 

in riga. 



caratteri disponibili; se si va oltre 
questi, quando premete ENTER ap¬ 
pare la riga come l’avete composta, 
ma tagliata oltre il 28° carattere. Se a 
questo punto ciò vi sta bene, preme¬ 
te ancora ENTER e passate alla riga 
successiva, altrimenti potete sceglie¬ 
re fra una serie di operazioni alter¬ 
native corrispondenti ad altrettanti 
tasti-funzione: 

• FCTN (8) (=B ACK) serve per scri¬ 
vere da capo quella stessa riga; 

• FCTN (9) (=REDO) serve per ri¬ 
leggere le precedenti righe della pa¬ 


gina sulla quale state scrivendo, già 
ricomposte, per proseguire poi nella 
scrittura; 

• FCTN (6) (=PROC’D) serve per 
proseguire con la pagina successiva, 
interrompendo a quel punto la pagi¬ 
na che state scrivendo non prima 
però di averla riletta già incolonna¬ 
ta, e aver premuto un tasto dopo di 
ciò. 

Quando premete PROC’D dopo 
la lettura della pagina appare una 
serie di opzioni, per scrivere da ca¬ 
po, per proseguire con la pagina suc¬ 
cessiva o infine per tornare al qua¬ 
dro principale. 

Continuando a scorrere il menu 
principale, vediamo che al punto (3) 
il programma si fermerà, al punto 
(7) cancellerà tutto ciò che è stato 
scritto, al punto (5) sarà possibile 
leggere una o tutte le pagine. In que¬ 
st’ultimo caso si prema un tasto do¬ 
po aver letto ogni pagina. Infine al 


punto (6) potrete aggiornare una o 
più pagine, inserendo il numero del¬ 
la pagina e quello della riga da cam¬ 
biare. 

Le righe di ogni pagina sono 23 per 
cui per ogni numero superiore che 
inserite dovrete rifarlo da capo. Se 
volete aggiungere soltanto delle ri¬ 
ghe, basterà iniziare a scrivere dalla 
riga che avete inserito in avanti, fino 
alla fine della pagina, ma se usate il 
comando PROC’D allora avete fini¬ 
to di correggere. 

È importante da ultimo ricordare 
che, quando stabilite il numero mas¬ 
simo di pagine da compilare, questo 
numero resterà tale anche nell’ope¬ 
razione di trasferimento dei dati su 
cassetta, e sarà inserito nel file. Così 
se avete scritto 4 pagine ma avevate 
posto un massimo di 6 pagine, il 
registratore scriverà e leggerà dal fi¬ 
le sempre 6 pagine, comprese quelle 
vuote. 


Seguilo listato Word processor. 

1570 IF RED=6 THEN 1510 
1580 REM 

1590 IF RED=12 THEN 1660 

1600 READING=99 

1610 IF RED=15 THEN 1670 

1620 READING=0 

1630 NEXT I 

1640 IF MODYFY=99 THEN 2550 

1650 GOTO 1910 

1660 GOSUB 2740 

1670 FOR 11=1 TO 23 

1680 IF READING=99 THEN 1690 ELS 

E 1700 

1690 IF A$(II,C)="" THEN 1710 
1 700 PRINT A$(II,C) 

1710 NEXT II 

1720 IF READING=99 THEN 1730 ELS 
E 1740 

1730 GOTO 1620 

1740 CALL KEY(0,LETTURA,STLET) 
1750 IF STLET=0 THEN 1740 
1760 GOSUB 2740 
1770 IF MODYFY=99 THEN 2550 
1780 PRINT " opzioni": 


1790 IF C>=N THEN 1810 
1800 PRINT "questa era la "&STR$ 
(C)&"~ pagina su";:N;"pagine a 
disposizione" 

1810 PRINT "(l)per rifare ultima 
pagina(2)per fare prossima pa 
gina(3)per ritornare al quadro 
principale" 

1820 RIT=0 

1830 CALL KEY(0,RIT,ST) 

1840 IF ST=0 THEN 1830 

1850 IF (RIT>51)+(RIT<49)THEN 18 

30 

1860 ON RIT-48 GOTO 1490,1880,18 
70 

1870 RETURN 

1880 IF C>=N THEN 1890 ELSE 1910 

1890 PRINT " ATTENZIONE 

NON PUOI CONTINUARE" 

1900 GOTO 1810 
1910 NEXT C 
1920 GOTO 1760 
1930 REM 
1940 GOSUB 2740 

1950 INPUT "chiave , numero file 
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VIDEO BASIC 
abbonarsi conviene 



(5 splendidi raccoglitori 
insieme al corso completo) 

i marna 


Video Basic io trovi in 
edicola a lire 8.000 il 
fascicolo con cassetta e 
manuale. Ma abbonarsi 
conviene; con 165.000 
lire avrai infatti il corso 
completo, a casa tua, e 5 splendidi 
(e pratici) raccoglitori del valore 
di 40.000 lire. 

NON PERDERE L'OCCASIONE! 


viOCOC«IONI 0« BASIC 
JS^MPAAABf COL VIC *0 


•m 


Desidero abbonarmi a Video Basic 

□ Per il computer Commodore VIC 20 

□ Per il computer Commodore 64 

□ Per il computer Sinclair Spectrum 



Spedire a: 
JACKSON 
Via Rosellini, 12 
20124 Milano 


Allego lire 165.000 con assegno n®_della Banca_._ o allego fotocopia della ricevuta di 

versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO, che mi dà diritto di ricevere a casa 
mia il corso completo e 5 raccoglitori. 


Nome 


Cognome 


Via 


N. 


CAP_Città 


Provincia 
























l’unica che non sarà mai sorpassata 
dai fatti 


l’unica cosi completa e organica 
l’unica fatta da veri specialisti 


In collaborazione con il 
Learning Center 

Texas Instruments 


nuovidea 













Enciclopedia di Elettronica e Informatica 




GRUPPO 

EDITORIALI 

JACKSON 


f - In collaborazione con il 
Learning Corner 


Texas Instruments 


j ■ temi affascinanti della civiltà 
I del computer, gli sviluppi del- 
I la società tecnologica in un 
opera creata per capire e affron¬ 
tare il micromillennio. 

y L'enciclopedia giovane e pratica, 

che nasce dai progressi della ri¬ 
cerca, che parla il linguaggio 
chiaro e conciso della "bit gene¬ 
ration". 

/Lo strumento base per chi studia, 

per chi lavora, per chi vuol vivere 
da protagonista le affascinanti no¬ 


vità del nostro tempo e prepararsi 
a quelle del futuro prossimo ven¬ 
turo. 


In edicola 
60 dispense 

30 appuntamenti settimanali 
con gli esperti JACKSON e i 
tecnici TEXAS INSTRUMENTS 


'Ogni settimana: 

56 pagine di elettronica, 
informatica e comunicazioni. 


^n sole 30 settimane 

una splendida opera per la vostra 
biblioteca: 

7 prestigiosi volumi 
1600 pagine complessive 

700 foto e 2200 
disegni a colori 




























Con un’inutile perdita di tempo. 
Per evitarla potrete andare al punto 
(6) del menu (Aggiornamento) e re¬ 
inserire il nuovo numero di pagine 
senza cambiare alcunché. 


Come è strutturato il programma 

L’immagine iniziale è stata otte¬ 
nuta creando un carattere pieno 
(quadratino), e disponendolo nume¬ 
rose volte (170) sullo schermo me¬ 
diante l’istruzione CALL HCHAR 
fino a formare l’immagine voluta. 
Con le istruzioni READ ... DATA il 
Computer legge ogni volta le coor¬ 
dinate di ogni punto. 

Dopodiché si giunge al menu d’a¬ 
pertura che divide il programma in 7 
subroutine principali, alcune delle 
quali strutturate. 

Molto spesso esse si fondono tra di 
loro, questo per utilizzare più volte 




alcune istruzioni in comune. Quan¬ 
do ciò avviene vengono usate delle 
variabili “fittizie” (Rcading, Mo- 
dify) che assumono valore = 99 op¬ 
pure 0, creando cosi la possibilità di 
non confondere le due diverse se¬ 
quenze che in quel punto si incrocia¬ 
no. 

I testi, mentre sono scritti, vengono 
trasferiti nel buffer input/output 
tramite l’istruzione di INPUT, per¬ 
ciò ogni volta che scrivete una riga 
state attribuendo una serie di valori 
alla variabile di stringa A$ tramite 
l’istruzione di INPUT. 

Ecco perché alla fine di ogni riga 
bisognerà premere ENTER. 

Per catalogare queste variabili di 
stringa abbiamo usato una matrice 
di (23x10) punti corrispondenti a 23 
righe per IO pagine. 

L’istruzione in BASIC è DIM A$ 
(23,10). 

I “puntatori” di questa matrice a 


due dimensioni sono le variabili (I) e 
(C). Per utilizzarli abbiamo costrui¬ 
to due cicli nidificati (figura 3). 

In questo modo è possibile passare 
per ogni punto della matrice e com¬ 
piere le operazioni desiderate. 
Inoltre, quando abbiamo affrontato 
il problema deH’immagazzinamento 


FOR C = ! IO IO 

Righe di programma 

FOR I = 1 TO 23 

Righe di programma 

INPUT A$ (l,C) 

Righe di programma 

NEXT I 

Righe di programma 

NEXT C 

Figura 3. I due cicli nidificati per 
utilizzare i puntatori di DIM /!$. 


Seguito listato Word processor. 

?":Q$,Q 

I960 OPEN #Q:"CSl",INPUT ,INTERN 
AL,FIXED I92,SEQUENTIAL 
1970 INPUT #Q:N,QQ$ 

1980 IF QQ$=Q$ THEN 1990 ELSE 19 
70 

1990 FOR C=1 TO N 

2000 PRINT : :"STO LEGGENDO LA " 

;C;"PAGINA" 

2010 FOR 1=1 TO 20 STEP 5 

2020 PRINT "STO LEGGENDO LA ";:I 

: 1 + 1 :1 + 2:1 + 3:1+4;" RIGA" 

2030 INPUT #Q:A$(I,C),A$(1+1,C), 
A$ (1 + 2,C) ,A$(I + 3,C)fA$(1 + 4,C) 
2040 NEXT I 

2050 PRINT "STO LEGGENDO LA 
21":" 22":" 23 RIGA " 

2060 INPUT #Q:A$(21,C),A$(22,C), 
A$(23,C) 

2070 NEXT C 
2080 CLOSE #Q 
2090 RETURN 
2100 REM 
2110 GOSUB 2740 

2120 INPUT "chiave , numero file 
?":QQ$,Q 

2130 OPEN #Q:"CSI",OUTPUT,SEQUEN 


TIAL,FIXED 192,INTERNAL 
2140 PRINT #Q:N,QC$ 

2150 FOR C=1 TO N 

2160 PRINT : :"STO SCRIVENDO LA" 

;C;"PAGINA" 

2170 FOR 1=1 TO 20 STEP 5 

2180 PRINT "STO SCRIVENDO LA": ; I 

: 1 + 1: 1 + 2:1+3:1+4;"RIGA" 

2190 PRINT #Q:A$(I,C),A$(1+1,C), 
A$(I+2,C),A$(I+3,C),A$(I+4,C) 
2200 NEXT I 

2210 PRINT "STO SCRIVENDO LA":" 
21":" 22":" 23 RIGA" 

2220 PRINT #Q:A$(21,C),A$(22,C), 
A$(23,C) 

2230 NEXT C 
2240 CLOSE #Q 
2250 RETURN 
2260 MODYFY=0 
2270 GOSUB 2740 

2280 PRINT "vuoi rileggere una o 
tutte le pagine (U/T)" 

2290 UT=0 

2300 CALL KEY(0,UT,STUT) 

2310 IF STUT= 0 THEN 2300 
2320 IF (UT=85)+(UT=117)THEN 279 
0 
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CEDOLA DI ORDINAZIONE OFFERTA DISCHETTI 

Do compilare e spedire in busta chiusa a 
J. soh - via Rosellini, 12 - 20124 Milano 
Tel. 02/6888228 • 683797 6880841 - 6880842 • 6880843 


Ordino i seguenti dischetti, in confezione do 10 pezzi cad., per un importo 
lotole di L. IVA e spese di spedizione incluse. 

□ N.dischetti (minimo 10 e multipli di 10) 

□ Contanti allegati 

□ Assegno allegato n° . 

□ Ho spedito l'importo a mezzo vaglio postale 

□ Ho versolo l'importo sul CCP n° 19445204 intestato o J. soli - Milano 

□ Pagherò in contrassegno al postino al ricevimento dei dischetti 


Nome ... 

Cognome . 

Via .*.. 

CAP . Città . Prov. 

Se richiesta fattura • codice fiscale . 

Data . Firma . 

Offerta valida solo per l'Italia. 






























Word processor 
_ per TI99/4A 


Seguito listato Word processor. 

2330 IF (UT=84)+(UT=116)THEN 234 

0 ELSE 2300 

2340 FOR C = 1 TO N 

2350 FOR 1=1 TO 23 

2360 PRINT A$(I,C) 

2370 NEXT I 

2380 IF MODYFY=99 THEN 2520 
2390 CALL KEY(0,RR,SS) 

2400 IF SS=0 THEN 2390 
2410 IF (UT=84)+(UT=116)THEN 243 
0 

2420 RETURN 
2430 NEXT C 
2440 RETURN 
2450 REM 
2460 PRINT : 
i il numero 
eferito 
R$(N)&" )"; 

2470 INPUT N 
2480 INPUT " 

quale pagina vuoi aggior 

nare":C 

2490 IF C>10 THEN 2480 
2500 MODYFY=99 
2510 GOTO 2350 

2520 INPUT "da quale riga ?":RI 


2530 

RI=RI-1 


2540 

GOTO 1500 


2550 

RI = 0 


2560 

GOSUB 2740 


2570 

PRINT " PREMI :" 

: 

2580 

PRINT "(l)per aggiornare 

an 

cora 

(2)per tornare al quadro 


principale" 


2590 

CA=0 


2600 

CALL KEY(0,CA,STCA) 


261 0 

IF STCA=0 THEN 2600 ELSE 

26 

20 



2620 

IF CA-48=1 THEN 2480 


2630 

MODYFY=0 


2640 

RETURN 


2650 

REM 


2660 

FOR C=1 TO N 


2670 

FOR 1=1 TO 23 


2680 

LET A$(I,C)="" 


2690 

PRINT " CANCELLAZIONE 

2700 

NEXT I 


2710 

NEXT C 


2720 

N = 0 


2730 

RETURN 


2740 

CALL VCHAR(1,1,32,32*24) 


2750 

CALL VCHAR(1 , 1 , 1 28,48) 


2760 

CALL VCHAR(1 , 31 , 1 28,48) 


2770 

RETURN 


2780 

REM 


2790 

INPUT "quale pagina vuoi 

ri 

leggere":C 


2800 

GOSUB 2350 


2810 

GOTO 2440 




: reinserisc 
. di pagine pr 
(precedente = "&ST 


dei testi nei file su cassetta, abbiamo 
trovato utilissimo il fatto che ogni 
riga fosse già “squadrata” e dimen¬ 
sionata al massimo su 28 caratteri, 
perché così abbiamo potuto stabili¬ 
re in anticipo la lunghezza del Re¬ 
cord logico (28 caratteri + 1x5 
righe), ed adattarlo su un record fisi¬ 
co che io contenesse (“Fixed 192”), 
variando, al variare della lunghezza 
del testo, solo il numero delle pagi¬ 
ne. 

Infine una parola sullo scrolling 
orizzontale. E stato ottenuto sem¬ 
plicemente con l’istruzione: CALL 
VCHAR (1,1,32,32+24). 


Conclusione 

Abbiamo visto a grandi linee co¬ 
me funziona il programma, e, nei 
limiti delle capacità del Texas 


TI99/4A può essere comodamente 
applicato per usi concreti, ritenia¬ 
mo. Alcune precisazioni però prima 
che sia troppo tardi. 

Il programma occupa tutta la me¬ 
moria disponibile del computer, do¬ 
po aver lasciato esattamente lo spa¬ 
zio sufficente ad immagazzinare il 
testo di 10 pagine alla volta. Questo 
non è ovviamente modificabile, se 
non in piccoli dettagli, ma con il 
rischio di andare in **Memory full 
in...** e perciò perdere tutte e 10 le 
pagine scritte. 

Variabili usate 

V,H Coordinate di ogni punto 
della figura iniziale. 

COL Variabile corrispondente al 
Set di colori usati. 

R,RIT,LETTURA,UT,RR,CA Va¬ 
riabili di ritorno delle istruzioni 


CALL KEY usate. 

N Numero massimo di pagine da 
scrivere. 

PP Prima pagina da cui partire nella 
scrittura dei testi. 

C Contatore delle pagine usate nel 
ciclo FOR-NEXT. 

I Contatore delle righe di ogni pagi¬ 
na. 

RI Prima pagina dalla quale partire 
nella scrittura (quando si sta aggior¬ 
nando le pagine già scritte). 

A$ (I,C) = Matrice di 10 x 23 punti 
contenenti le parole. 

RED Codice ASCII dei tasti funzio¬ 
ne utilizzati nell’operazione di scrit¬ 
tura. 

READING, MODYFY Variabili fit¬ 
tizie che discriminano il percorso del 
programma. 

Q$ Chiave per aprire il contenuto 
del file immagazzinato su cassetta. 
Q Numero del file. ■ 
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Facile 


CALCOLARE... 

È facile con MULTIPLAN. 

Questo programma per la gestione del 
“foglio elettronico" trasforma il vostro 
personal computer in un prestigioso cal¬ 
colatore che utilizzerete senza problemi. 
Istruzioni, comandi e ampia documenta¬ 
zione. 

Incolonnamene variabile. 
Indirizzamento relativo o assoluto. Tutto 
facilita il lavoro. Completo di guida mol¬ 
to chiara che potete far apparire, a richie¬ 
sta, sullo schermo. 


MODIFICARE... 

Desiderate cambiare dei parametri? Mul- 
tiplan ricalcola automaticamente tutto 
ciò che ne deriva. La medesima cosa su 
più fogli di calcolo che potrete legare tra 
loro a volontà. Integrando funzioni logi¬ 
che, funzioni statistiche Multiplan si rive¬ 
la il “foglio elettronico" più potente sul 
mercato. 


DECIDERE... 

Con Multiplan avrete sotto gli occhi tutte 
le cifre per prendere decisioni oggettive. 
Eletto programma dell’anno, già uno dei 
best-sellers mondiali del 1983, Multiplan, 
è ora disponibile in Italiano. 


con Multiplan 

MICROSOFT. 


BB&qne y 

\N ED 



il software che ti rende 
facile la vita. 


J 




DISTRIBUITO IN ITALIA 
ESCLUSIVAMENTE DA 


UA-LUal . Ai.lE-l. 

msoft 


EDITRICE 


20124 Milano - Via Rosellini, 12 
Tel. (02) 6888228-683797-6880841/2/3 


Potete acquistare Multiplan - edizione 
italiana - presso i migliori rivenditori Ap¬ 
ple o riceverlo direttamente da i.soft , 
compilando ed inviando il coupon sotto 
riportato. 


Inviare a i.soft , - Via Rosellini, 12 -20124 Milano 
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Nome 


Cognome 


I 


Ordino n°.Multiplan in italiano per Apple Ma¬ 

cintosh - cod. DMOPM02 al prezzo di L. 638.000 cad. 
(IVA e spese di spedizione incluse). 


Via . 

C.A.P.Città.Prov. 


Scelgo la seguente forma di pagamento: Desidero fattura - n° Partita IVA 

□ pagherò in contrassegno al postino 

□ assegno allegato di L. Data . Firma 



























Trasformate 
_il vostro Spectrum_ 

in un registratore digitale 


L a proposta SIEL di questo 
mese è il programma Live 
Sequencer, realizzato per 
lo Spectrum con 48 Kbyte di memo¬ 
ria, che consente di registrare in 
tempo reale un’esecuzione musicale 
per sintetizzatore o tastiera provvi¬ 
sta di MIDI. Questo è possibile pur¬ 
ché si disponga, oltre che dello stru¬ 
mento e del micro di produzione 
Sinclair, del necessario MIDI Com¬ 
puter Interface SIEL e di un regi¬ 
stratore a cassette con cui caricare 
Live Sequencer (distribuito su cas¬ 
setta al prezzo di 49.560 lire, IVA 
inclusa). 

Pedali e computer 

La riesecuzione della sequenza 
registrata può essere avviata o 
interrotta utilizzando un comando a 
pedale, connesso al SIEL MIDI 
Computer Interface, lasciando in tal 
modo libero il musicista di occupar¬ 
si d’altro fino al momento opportu¬ 
no. La capacità di ripetere indefini¬ 
tamente delle sezioni musicali (ritor¬ 
nelli) esalta gli amanti di musiche 
ossessive o i perfezionisti in vena di 
variazioni su basi armoniche ricor¬ 
renti. Al Midi Computer Interface 
SIEL si possono collegare diverse 
apparecchiature sonore, ma lo stru¬ 
mento da cui si può trarre il migliore 
profitto è l’Opera 6 della SIEL, visto 
che Live Sequencer consente di regi¬ 
strare e riascoltare brani polifonici 
con un totale di sei voci. Ciò non 
toglie che possa essere convincente 
anche l’uso della tastiera SIEL 
MK900 o di altri tipi purché provvi¬ 
sti di interfaccia MIDI. L’elemento 
cruciale di questa ibrida catena, ve¬ 
ro anello di congiunzione tra appli¬ 
cazione informatica e musica elet¬ 
tronica, è il SIEL MIDI Computer 
Interface, che consente i necessari 
collegamenti tra computer e stru¬ 
menti. 


Hardware e operazioni 

Il package è stato sviluppato per 
lo Spectrum Sinclair nella versione a 
48 Kbyte di memoria: alla creatura 
di sir Clive vanno connessi registra¬ 
tore a cassette e televisore, come nel¬ 
le ordinarie applicazioni d’altro ti¬ 
po. Una progettazione del software 
particolarmente curata, con ispira¬ 
zione dichiaratamente vicina alla fi¬ 
losofia user-friendly, porta a co¬ 
mandi semplificati al punto che 
spesso è sufficiente premere un solo 
tasto per attivare una certa funzio¬ 
ne. Il menu iniziale permette di sce¬ 
gliere tra le varie funzioni previste 
dal programma. E’ sufficiente ri¬ 
spondere con un numero per attiva¬ 
re ciò che si desidera: Play, ad esem¬ 
pio, corrisponde ad uno e consente 
di trasferire nella memoria dello 
Spectrum una sequenza eseguita su 
una tastiera provvista di MIDI. Il 
computer resta in questo stato fin¬ 
ché non viene premuto il tasto Bre¬ 
ak, indice della conclusione della se¬ 
quenza stessa. In ogni momento sul¬ 
lo schermo è presente un numero 
che segnala la percentuale di memo¬ 
ria ancora disponibile. Un’occhiata 
a questo valore consentirà di non 
rimanere a metà di una sequenza 
quando si vogliono memorizzare 
brani molto lunghi, che possono co¬ 
sì essere spezzati in più parti separa¬ 
te. Completato il trasferimento, il 
programma ripropone il menu ini¬ 
ziale, da cui si può scegliere la fun¬ 
zione di riascolto dell’ultima se¬ 
quenza memorizzata (Playback), 
corrispondente al due. 


Registrazione e caricamento 
di sequenze 

Dopo avere scelto Play è possibile 
trasferire su cassetta la sequenza che 
si trova nella memoria centrale dello 


Spectrum; le modalità di registra¬ 
zione sono le stesse di un qualsiasi 
programma. Una volta completata 
la fase di Save on tape occorre pre¬ 
mere il tasto Enter per ritornare al 
menu. Allo scopo di recuperare una 
sequenza registrata in precedenza su 
cassetta c di porla in memoria per 
poterla riascoltare o ripetere è ne¬ 
cessario scegliere tre, Load from ta¬ 
pe. Come nel caso del salvataggio, è 
molto semplice trasferire una se¬ 
quenza da nastro a memoria: basta 
compiere le stesse azioni che vi han¬ 
no permesso di far partire Live Se¬ 
quencer, ovviamente dopo aver 
montato e posizonata la cassetta 
contenente il brano richiesto. Ter¬ 
minata questa serie di azioni occorre 
battere Enter per tornare al menu 
iniziale, dove restano ancora alcune 
cose da scoprire. In associazione 
con la funzione di Playback è possi¬ 
bile, premendo i tasti 5 e 8, modifi¬ 
care la velocità d’esecuzione di una 
sequenza. Premendo 5 la si rallenta, 
mentre l’8 la fa aumentare; per ri¬ 
portare il brano alla velocità origi¬ 
nale occorre tornare all’inizio e bat¬ 
tere 5 Enter (Correct lime). 


Ma è sempre la solita musica... 

La funzione di Refrain abilita la 
ripetizione della sequenza presente 
in memoria all’infinito: dopo aver 
premuto 6, occorre scegliere 1 (Yes) 
e passare poi in modalità Playback, 
per riascoltare indefinitamente un 
ritornello. Per chiudere l’ossessio¬ 
nante litania occorre premere Bre¬ 
ak, e si torna ancora una volta all’i¬ 
nizio. Non dimenticate che si può 
collegare un pedale al SIEL Midi 
Computer Interface per avere le ma¬ 
ni più libere... SIEL S.p.A. - Zona 
Industriale - 63030 Acquaviva Pice¬ 
na (AP) - Tel. 0735-607044 a 
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esti personalizzati 
per Sharp MZ 700 


Un programma per la 
stampa di circolari 


di Gatti Giuseppe 

Q uesto programma permet¬ 
te, a chi possiede una 
stampante, di ottenere te¬ 
sti personalizzati, circolari a più in¬ 
dirizzi, elenchi alfabetici, ovviamen¬ 


te con memorizzazione e richiamo 
dati da nastro. 

Successivamente, con qualche pic¬ 
cola modifica, potrà essere utilizza¬ 
to anche con il plotter incorporato 
nell’MZ 731. 

Ora passiamo con ordine al detta¬ 
glio del programma: il primo menu 
visualizzato, non appena dato il 
RUN è: 

A) Carica dati; 

B) Modifica/stampa; 

C) Record; 

D) Indirizzi. 


Le opzioni A) e C) 

Servono per richiamare o memo¬ 
rizzare i dati da o su cassetta, baste¬ 
rà dare il numero del file (importan¬ 
te ricordarsi il nome esatto del file 
da caricare per evitare inutili perdite 
di tempo) e seguire le istruzioni che 
via via compariranno sullo scher¬ 
mo. 

Occorre seguire alcune avvertenze: 

• scrivere sulla cassetta il nome del 
file memorizzato per richiamarlo 
esattamente; 


Listato 1. Il programma per la stampa di testi e circolari. 

10 R EM*******************++* ** :*:+:+++******* 
20 REM************************************ 


30 

REM 

DfiTfi-TESTI-CIRCOLfiRI 

**** 

48 

REM 

BV GOTTI GIUSEPPE 

**** 

50 

REM 


**** 

68 

REM 

RIU0N0ZZ0N0 <PU> 

**** 


70 REM************************************ 

80 REM************************************ 

90 DIMORI$<10 >:DIMGEO*<10): DIMfiLGE*<10 > a DIMSTI<18 >:DIMIHDI $ <100,5>:DIMSI<100>,fi* 
< 21), 02 <100 >,P3<100 >,NN$<1 00 ,5 > 

108 REM*********************************** 

110 REM*********************************** 

120 REM 

130 REM MENU INI2IRLE 
140 REM 

158 REM*********************************** 

160 REM*********************************** 

170 CONSOLE©? 25j 0,48 
180 FRINT"E" 

190 CURSORI0,5:PRINT" [fi] CORICO DOTI" 

208 CURSORIO?8:FRINT" CEO MODIFICfVSTAMPfi" 

210 CURSORI©,11: FRINT" CCD RECORD " 

228 CURSOR10? 14:PRINT“ CD3 INDIRIZZI" 

230 GETXf 

248 IFX$=""THEN230 

258 IFX$="fi"THEN6OSUB2920 

260 IFX$="B"THEN300 

278 IFX$="C"THENGOSUB3320 

280 IFX$="D"THEN810 

290 GOTO180 

380 CONSOLEO? 25? 0 ? 40:PRINT"E":FORI = 1TO18 :STI<I)=8:NEXTI :FORI=1TO108:SI<I>=8:NEXT 
I 

318 CURSORI8? 5:FRINT" [1] CORR. CON INDIRIZZI" 

328 CURSOR10,10:PRINT" [23 CORR. fiMICI" 

330 CURSOR10,15:PRINT" [33 CORR. UfiRIO" 
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r 340 CURSOR30,20:1NPUT"SCELTO " i V 
350 IFV>3THEH300 

360 REM**************** 1 *-****************** 

370 REM 

3S0 REM UISUOLIZZOZIONE-MODIFICfl/STOMPO TESTI CON INDIRIZZI 
390 REM 

410 PRINT"G" 

420 FORI = 1T04 : CURSOR17,1 : PRI NT "I I " : NEXTI : CURSQR0 » 5 : PRI NT "_i 


430 CURS0R2, 1 :PRINT"CM3 MODIFICO":CURS0R2,3:PRINT"CS3 STAMPO" 

440 C0NS0LE6,1.7,0,40 
450 0NVG0T046U,1840,2400 

460 FORI = 1TO1 ©:CURSOR21,1 :PRINT"CORR.OFFITTI":CURSOR20,3:PRINTI" TESTO":CURSOR0, 
8:PRINT:PRINTflRI$<I):PRINT:PRINTSPRINT"PREMI UN TOSTO PER CONTINUORE" 

470 GETK$ 

480 IFK$=""THEN470 
490 IFK$="M"THEN6OSUB590 
500 I FK$= " S 11 THENSTI < I >=1 
510 PRINT"G" 

520 NEXTI 

530 PRINT"EEEB30BSBB0LTRE MODIFICHE CS^N]-CP]=STOMPfl" 

540 GETK* 

550 IFK$="S"THEN300 
560 IFK#="H"THEN170 
570 I FK$= "P"THENGOSUB680 
580 GOTO540 
590 PRINT"E" 

600 PRINTI" TESTO DO MODIFICARE":PRINTORI$<I> 

610 INPUT"QOa";ORI$(I):PRINT"E"*ORI$<I) 

620 PRINT"SSSESSSSEESBUH BENE CS/N] " 

630 GETZf 

640 IFZ$=""THEN630 
650 IFZ$="N"THEN590 
660 IFZ$="S"THENRETURN 
670 6OTO630 

680 CONSOLEO,25,0,40:PRINT"GEESBQUESTO E'IL TESTO CHE STOMPO" 

690 FORI=ITOIO 

700 IFSTI<I) = 1THENPRINTORI$< I > 

710 NEXTI 

720 PRINT"SSSEESSEESSEEUR BENE CS/N]" 

730 GETK* 

740 IFK$=""THEN730 
750 IFK$="N"THEN300 

760 REM*********************************** 

770 REM 

780 REM UISUOLIZZOZIONE^MODIFICO/STOMPO - INDIRIZZI 
790 REM 

800 REM*********************************** 

810 CONSOLE0,25,0,40 

820 PRINT"GSSSSESSESSSSBB * INDIRIZZI *" 

830 F’R I NT " EECSESSSBE [13 MI SUOLI ZZARE " 

340 PRINT"ESEEESSEBSC21 MODIFICARE " 
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• se si memorizzano dei testi all’ini¬ 
zio di una cassetta ricordarsi sempre 
di avvolgere a mano la parte bianca 
di coda perché l’inizio della registra¬ 
zione avviene immediatamente do¬ 
po aver schiacciato il tasto Record -f 
un tasto qualsiasi del computer; 

• non dare ai file nomi complicati o 
troppo lunghi (max. 10 caratteri); 

• sullo schermo, in fase di registra¬ 
zione o di richiamo, sono visualizza¬ 


ti i testi e gli indirizzi letti o registra¬ 
ti. 


Opzione B) Modifica e Stampa 

Con l’opzione B) si possono ave¬ 
re: 

1) testi con indirizzi; 

2) e 3) testi semplici con copie. 

Nel primo caso la maschera che 
comparirà sul video permetterà di 


visualizzare - modificare - stampare 
le 10 righe che compongono il testo. 
Le righe sono in pratica delle strin¬ 
ghe di 250 caratteri che devono sem¬ 
pre iniziare con una lettera del testo 
o con un simbolo (esempio '”) per 

non perdere gli spazi bianchi prima 
del testo vero e proprio in caso di 
particolare incolonnamento. 
Ammettiamo, ad esempio, di non 
aver ancora in memoria alcun testo. 


Seguito listato 1. 


850 


FRINT" 


nnnnnnnn 

uuuuuuuu 


BBC33 


CONTINUORE " 


860 FRINT"ESSSSSSEBB C 4 3 MENU " 

870 PRINT"SSSSSSSSBBC53 ORDINARE" 
880 GETW* 


890 IFW$=""THEN880 
900 IFW$="1"THEN960 
910 IFW$="2"THEN1330 
920 IF W$= 11 3 " THEN1570 
930 IFW$="4"THEN180 
940 IFW$="5"THEN3700 
950 GOTO880 

960 REM UISU ALIZZAZIONE INDIRIZZI 
970 FRI NT 11 EESESSSEEBBBB Z S3 STAMPANTE" 
980 PRIHT"SBBSSSS5BBBBCM3 MONITOR" 

990 GETS$:IFS$=""THEN990 
1000 IFS$="M"THEN1200 
1010 IFS$="S"THEN1080 
1020 GOTO990 

1030 R E M#+*+*# ********:*+:+: * *++:+:++++++ 


1040 REM 

1050 REM STAMPA TABULATO ISCRITTI 
1060 REM 

1070 REM*********************************** 
1080 FR I NT/P " n 

1090 pr i nt/p " xxxxxxxxxxxxxxxxxxxxxx 

1100 PRINT.- P" XXXXXXXXXXXXXXXXXXXXXX 


"SPRINTAR 
" : PRINT-'P" 


1110 

1120 

1130 

1140 

1150 

1160 


PRTMVF-0— ELENCO ISCRITTI AL CLUB _":PRINT/'P:PRINT-'P:PRINT/P 
11 = 1 

FORI=1TO100 

IF <1NDI $ < I > 2 > = " " >+<LEFT$CIND1 1 <1,1>,3 > <> ■" E6R">THEN1190 
PRIMVP"E";I1; " s"; INDI$<IINDIAI,3!>; " INDIAI ,4) 


PRIHT.--P 


1170 IF a 1=25 > + < 11 =50> + < 11 =75 >THENPRI NT /P " Gl " 

1180 11=11+1 
1190 NEXTI:GOTO810 

1200 PRINT"ESSSSSuSSSSSCCR3 PER CONTINUARE": FRINT"S5SS5S5EESBCC 3 PER CACELLARE" 
:PRINT"ESESSSSSSEBCS 3 PER STAMPARE ":PRINT"ESE5SSE55SBCU 3 PER USCIRE " 

1210 CONSOLE 10.<■-15 ? 0.- 40 


1220 FORI = 1TO100:PRINT"E"51 ?" INDIRI ZZO":F0RL=1T04 
1230 PRINT"EEEESESSB"INDI$<I, L> 

1240 NEXTL 
1250 GETWf 

1260 IFW$=""THEN1250 

1270 IFLIf = "C"THENFORV-1T04:1NDT<I, V) NEXTV 
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La prima riga sarà pertanto una 
stringa vuota. 

Premere M; comparirà la scritta 
“Testo da modificare” con il curso¬ 
re lampeggiante all’inizio della 
stringa. 

Come già detto prima battere la riga 
(max. 250 caratteri comunque non 
oltrepassare le 6 righe video). 
Terminata la battitura premere CR 
come un input normale; viene ri¬ 


scritta la stringa così come sarà 
stampata e la richiesta "Va bene 
S/N”. 

In caso affermativo battere S per 
passare alla riga successiva, se no 
battere N per ritornare al modo in¬ 
put (con la stringa riscritta) per le 
modifiche del caso. 

Comunque l’uso del programma 
può chiarire i punti dubbi. 

Il tasto CR ha la funzione di EN- 


TER per l’input ed è un tasto valido 
per avanzamento nella visualizza¬ 
zione delle righe. 

Giunti alla decima riga apparirà 
l’opzione “Altre modifiche fS/N] 
[P] stampa”. 

Se non si hanno più modifiche al 
testo occorrerà stabilire quali righe 
dovremo stampare ed allora digi¬ 
tando S ritornerà al menu iniziale. 
Battere 1 per riaccedere al pro- 


— 

128© IFW$="S"THENSI<I)=1 
1290 IFW*="U"THENS10 
1300 NEXTI 
1310 GOTO820 

1320 REM********^**************#****#***^** 

1330 REM MODIFICA INDIRIZZI 
1 340 REM*♦* : + : : + : *** **+++' +++++++:+:++++:+•'+*++ 

1350 FORI = 1TQ100 : F'R I NT " ESSSSS "ili" IHDIRI ZZO 11 : F0RV= 1T04 : PRI NT ; IHDI * < I, V > : NEXTV 
1360 FRINT"0 MODIFICO CS/M" 

1370 6ETW$ 

1380 IFW$=""THEN1370 
1390 IFW$="N ,, THEN1500 
1400 IFW$="S"THEN1420 
1410 GOTO1370 

1420 INPUT"BBTITOLO ONORIF. "i INDUCI,1) 

1430 INPUT"NOME COGNOME "; INDIACI,25 
1440 INPUT"UIA INDUCI, 3> 

1450 INPUT "CAP CITTA" PROU. "5 INDI * <1.-4 > 

1460 PRINT"EEEESOaaALTRE MODIFICHE CS/N]" 

1470 GETW* 

1480 IFW$=""THEN1470 
1490 IFW#="N"THEN820 
1500 NEXTI 
1510 GOTO820 

1520 R EM*****+'+:+:++:t:+.++* sfs +• +.+** *+:f-+ 

1530 REM 

1540 REM ROUTINE STAMPA CIRCOLARI 
1550 REM 

1 560 REM**** : + : *+ :+:* * # *•+.+++* + 

1570 INPUT"EEESEEaaaaaaQUAHTI SPAZI DOPO L'INDIRI. "sSPAZI 
1580 INF'UT " EEEEEEEEEEaaaaaaCARATTERE INDRIZZO CG^'P] ";CI$ 

1590 INPUT "ESSEEEEEBCaOBaaCARATTERE TESTO CG/p] " ;CT$ 

1600 FORL=lTO100 
1610 IFSI<L)=0THEN1760 
1620 PR I NT-'P 

1630 PR I NT/P " “ " ; RRI NT -'P 

1640 F'R' I NT - P " XXXXXXXXXXXXXXXXXXXXXX " : F'RTHT/F' 

1650 PRINT/P" XXXXXXXXXXXXXXXXXXXXXX ":PRINT/P" - 

- " : F'RINT/p 

1660 F'R I NT -"P " 3—" : PR INT/P : PRINT/P : PRI NT '? 

1670 IFCI$="G"THENPRINT/P"C":FORV=1T041PRINT/P" ">INDI$<L,V):N 

EXTV 

1680 IFCI $= "P"THENPRINT/P "E" :FQRV=1T04: F RI NT'P" 

"S INDI $CL,V>: NEXTV 
1690 FORS=0TOSF'AZ I : F'R I HT/p : NEXTS 
1700 FORT =1TO10 


39 






















Seguito listato I. 

1710 IFSTICT)=0THEN1740 
1720 IFCT$= "G"THEH PRINT/p"3" ? ORIf <T> 

1730 IFCT$= "P"THEH PRINT/P"E" ? ORI $ <T> 

1740 NEXTT 
1750 PRimvP"0" 

1760 NEXTL 

1770 PRINT"ES5EE55BBBBBBBSSTESS0 TESTO CS/N]" 

1780 RETURN 

1790 REM*********************************** 

1800 REM 

1810 REM UISUflLIZZflZIONE/MODIFICR/STOMPA TESTI SENZA INDIRIZZI 
1820 REM 

1030 REM*********************************** 

1840 FORI=1TO10:CURS0R21,1:FRINT"CORR.AMICI":CURSOR20>3:PRINTI" TESTO":CURSOR0,8 
:PRI NT :PRINTGEOS< I > :PRINT:PRINT:PRINT"PREMI UN TASTO PER CONTINUORE" 

1850 GETK* 

1860 IFK#=""THEN1850 
1870 IFK$="M"THENGOSUB1970 
1880 IFK$="S"THENSTI<I>=1 
1890 PRINT"E" 

1900 NEXTI 

1910 F'RINT"EEEBBBBBBBALTRE MODIFICHE CS/N]-CP]=STAMPA" 

1920 GETK* 

1930 IFK*="S"THEN300 
1940 IFK*="N"THEN170 
1950 IFK*="P"THENGOSUB2070 
I960 GOTO1920 
1970 PRIHT"E" 

1980 PRINTI" TESTO DO MODIFICARE":PRINTGEO*<I> 

1990 INPUT"QBB"5 GEO* <I):PRINT"E"; GEO* < D 
2000 PRINT"SS5SS5S55SSBU0 BENE CS/H3 " 

2010 GETZ* 

2020 IFZ*=""THEN2010 
2030 IFZ*="N"THEN1970 
2040 IFZ*="S"THENRETURN 
2050 GOTO2010 

2060 REM*********************************** 

2070 REM ROUTINE DI STOMPfl 

2080 REM*********************************** 

2090 CONSOLEOj25»0?40:;PRINT"EEES3QUESTQ E' IL TESTO CHE STAMPO" 

2100 FORI=1TO10 

2110 IFSTI<1>=1THEHPRINTGEO^(I) 

2120 NEXTI 

2130 PRINT"SEEESSESEESEEUfl BENE [S/N]" 

2140 GETK$ 

2150 IFK$=""THEN2140 
2160 IFK$="N"THEN300 

2170 INPUT"ESSSS5S53BBBBBBQU0NTE COPIE "?COP 

2180 INPUT"E5SSSSBBBBBBQU0NTI SPOZI TRA I TESTI "5 SPAZI 

2190 INF'UT"ES55SSSBBBBBBCARATTERE TESTO CG/PI ";CT$ 

2200 F0RL=1T0C0P 
2210 F'R IHT/P " Q " 

2220 FORI=1TO10 

2230 IFSTI<1X>1THEN2260 

2240 IFCT$="6"THENPRINT/P"3" GEO*< I> 

2250 IFCT$="P"THENPRINT/P"E"GEOf <1> 

2260 IFSPAZK1THEN 2280 

2270 F0RS=1T0SF'AZI : PRINT/p: NEXTS 
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granulia con indirizzi e, alla visua¬ 
lizzazione delle righe, premere S per 
definire quelle da stampare per pro¬ 
seguire nel programma. 

Tutte le volte che si passa da menu 
testi, le variabili di stampa vengono 
azzerate, pertanto l’ultimo passag¬ 
gio dovrà avvenire con il tasto S. 
Giunti alla decima riga utilizzando 
il tasto S per l’avanzamento, accede¬ 


re alla routine di stampa con il tasto 
P. 

Sul video comparirà il testo che sarà 
stampato, ovviamente con l’inco- 
lonnamento per le 40 colonne video. 
Battere S per continuare se il testo 
va bene. 

Battere N per ritornare al menu testi 
se il testo discorda o è nullo. 
Nell’ultimo caso vale quanto già 


detto e pertanto, dopo il menu lo 
scorrimento delle righe dovrà avve¬ 
nire con il tasto S per quelle da stam¬ 
pare, oppure un tasto qualsiasi per 
quelle da escludere dalla stampa. 

Il passaggio successivo è la routine 
indirizzi a cui si può accedere dopo 
la visualizzazione del testo oppure 
direttamente dal menu iniziale con 
l’opzione D indirizzi. 


2280 NEXTI 
2290 NEXTL 

2300 FRINT"SSEE35ESSS8SSS&8S8STESS0 ARGOMENTO CS/N3 " 

2310 REM*********************************** 

2320 REMFINE ROUTINE DI STAMPA 

2330 REM*********************************** 

2340 RETURN 

2350 REM*********************************** 

2360 REM 

2370 REM UISIJALIZZAZIONE-'MODIFICA/STAMPA TESTI SENZA INDIRIZZI 
2380 REM 

2390 R E M. * * * * * * * * ***** *++ * * * * * * * * *++* * * * * * * * 

2400 FORI=1TO10:CURS0R21,1:PRINT"CORR.UARIA":CURSOR20,3:PRINTI" TESTO":CURS0R8,8 
: PR I NT : PR INTALGE* < I > : PR I NT : PR I NT : F'R I NT " PREM I UH TASTO PER CONTINUARE " 

2410 GETK* 

2420 IFK$=""THEN2418 
2438 IFK*="M"THEN60SUB2530 
2440 IFK$="S"THENSTI<I)=1 
2450 FRINT"E" 

2460 NEXTI 

2478 PRINT"ESS5E3SB!ISani5BALTRE MODIFICHE CS/Nl-CP^STAMPA" 

2488 GETKf 

2490 IFK$="S"THEN300 
2508 IFKf="N"THEH170 
2510 IFK$="P"THENGOSUB2630 

2520 6OTO2480 / 

2530 PRINT"E" 

2540 PRINTI" TESTO DA MOFIFICARE":PRINTALGE$<I) 

2550 INPUT " (DCC '* ? ALGE$< I > : PR I NT "E"? ALGE* < I > 

2560 PRINT"EESSESESSSSSUA BENE [S/N] " 

2570 GETZ$ 

2580 IFZ$=""THEN2570 
2590 IFZ$="N"THEN2530 
2608 IFZ$= "S"THENRETURN 
2618 G0T02578 

2628 REM*********************************** 

2630 REM ROUTINE DI STAMPA 

2640 REM*********************************** 

2650 CONSOLEO? 25?0? 40:PRINT"GESS8QUEST0 E' IL TESTO CHE STAMPO" 

2660 FORI=ITO10 

2678 IFSTI<I)=1 THENF'RINTALGE*< I !> 

2680 NEXTI 

2690 PRINT"SEEEESEEESUA BENE CS/N3" 

2708 GETK$ 

2710 IFKf=""THEN2700 
2720 IFK$="N"THEN300 

2730 INPUT"E5EEEEE5SEEBBHSBBQUANTE COPIE "JCOP 

2740 INPUT"ESEE5ESBBSBBQUANTI SPAZI TRA I TESTI SPAZI 
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Seguito listato 1. 

2750 F0RL=1 T0COP 

2760 PRINTVP"CP 

2770 FORI=1TO10 

2780 IFSTI<IX >1THEN2820 

2790 I FCT$= " G " THENPRINT/P " B 11 ; OLGE$<I > 

2800 IFCT$="P"THEHPRINT/P"E";OLGEf<I> 

2810 FGRS-0T08PAZI : PRINT--P : NEXTV 
2820 NEXTI 
2830 NEXTL 

2840 PR I NT " EEEEESEEBBOBBBSBSTESSO ARGOMENTO [S/N 3 " 

2850 REHFIHE ROUTINE DI STAMPO 
2860 RETURN 

2870 R E M * : + : +***+ : + : +*+++:+:++:+:+#+*++ 

2880 REM 

2890 REM ROUTINE DI PRELIEUO DOTI DO CASSETTO 
2900 REM 

291 0 R E M : + : •+• -+ : : + ; : + : + + + : + : : + : : + : : + : + + : + ; + '+■ :+■' '4- ■+ 

2920 PRINT"EESESSSSBSSBS8RIOUUOLGI LO CASSETTO LOTO B":PRINT"ESESSSEEEEESESSBBF 
OTTO [S/N]" 

2930 GETW$ 

2940 IFW$=""THEN2930 
2950 IFW*="S"THEN2980 
2960 IF W*="N"THENRETURH 
2970 GOTO2930 

2980 INPUT"BSSSSSESS8BBSS88SBSSS8N0ME RECORD ";REC$ 

2990 PRINT"BESE88888888BSPREMI PLOV E SCHIACCIO UN TOSTO" 

3000 GETW$ 

3010 IFW$=""THEN3000 
3020 ROPENRECT 
3030 FORI=1TO10 
3040 INPUT/TORITCI) 

3050 PRINT"BESBBHG LETTO QUESTO TESTO" 

3060 PRINTARI$< I> 

3070 INPUT/TGEOT<I> 

3080 PRINT"EEBBHO LETTO QUESTO TESTO" 

3090 PRINTGEO$<I> 

3100 INPUT/TOLGETa) 

3110 PRINT"BBBBHO LETTO QUESTO TESTO" 

3120 PRINTOLGE$<i:> 

3130 NEXTI 
3140 CLOSE 

3150 ROPEN"INDIRIZZI" 

3160 FORI=ITO100 

3170 F0RV=1T05 

3180 INPUT/TINDIT(I,V) 

3190 NEXTV : PR I NT I" INRIRI ZZO " : 

3200 FORV=1T05: PRINTINDIT<I,V>:NEXTV 
3210 NEXTI:CLOSE 

3220 F'RINT"EEE5BBB0BBBBCBBH0 ULTIMATO LO LETTURA":PRINT"BBEESSEEPPEMI STOP " 
3230 F'RINT"BBESSPREMI UN TOSTO PER CONTINUARE" 

3240 6ETW$ 

3250 IFU*=""THEN3240 
3260 RETURN 

3270 REM********************#***********:*** 

3280 REM 

3290 REM ROUTINE DI RECORD DOTI SU CASSETTO 
3300 REM 

3310 REM+* : ##*+**+++************+*******sf:*i|f* 
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3320 PRINT"ESCEBBBBBBBSBBRIAUUOLGI LA CASSETTA LOTO B":PRIHT"BBSEEEESS5ESESE5SF 
fiTTO CS^ND" 

3330 GETW$ 

3340 IFW$=""THEN3330 
3350 IFW$="S"THEN3380 
3360 I FW*= " H " THENRETURN 
3370 GOTO3330 

3380 INPUT"EEEESEBBBBBBBBBBBBNOME RECORD "5 REC* 

3390 PRINT"ESSEBBBBBBB3B3PREMI RECORD E SCHIACCIfi UN TASTO" 

3400 6ETW$ 

3410 I FW*= " " THEN3400 
3420 WOPENREC* 

3430 FORI=1TO10 

3440 PRINT"SSBBREGISTRO QUESTO TESTO" 

3450 PRIHTARITCI) 

3460 PRINT/TflRI$<D 

3470 PRINT"SSBBREGISTRO QUESTO TESTO" 

3480 PRINTGEOT(I) 

3490 PRINT/TGEO*<I> 

3500 PRINT"SSBBREGISTRO QUESTO TESTO" 

3510 PRINTALGE*<I> 

3520 PRINT/TALGE$<I> 

3530 NEXTI:CLOSE 
3540 UOPEN"INDIRIZZI" 

3550 FORI=1TO100:PRINTI5" INDIRIZZO" 

3560 FORV=lT05 

3570 PRINT/TINDI* <1> V):PRINTINDI*<1,V) 

3580 HEXTV 
3590 NEXTI 
3600 CLOSE 

3610 PRINT"EBBBBS3B3B3B3H0 FINITO PREMI STOP POI UN TASTO" 

3620 GETW* 

3630 IFU*=""THEN3620 
3640 RETURN 


3650 REM************** ****+**+*+*+*+++++*++ 

3660 REM 

3670 REM ROUTINE DI ORDINAMENTO ALFABETICO ELENCO INDIRIZZI 
3680 REM 

3690 R EM*************** *** * * * ********** *** * 

3700 PRINT"EEEBB8BBBBBBST0 ORDINANDO L''ARCHIMIO" 


3720 A$<l>="fl":A$<2>="B":A*<3>="C":A*<4>="D":A*<5>="E":A*<6>="F":A*<7>="G":A*<8> 
="H" 

3730 A$<9> = " I ":A*<10>="L" s A*< 11) = "M"s A*< 12) = "N" s A*< 1 3)-"G" ! A*<14)="P" s A*< 15)="Q" 
:A*< 16>="R" 

3740 A$<17>="S"sA$<18>="T":A$<19>="U";A$<20)="U"tA$<21)="Z" 

3750 K1 =0: FOR I = 1 TO 100:1 F I ND I $ < I2> < > " " THENK1=K1+1 


1) Visualizzazione indirizzi: 

S) stampante - M) monitor. 
L’opzione S permette la stampa di 
un tabulato personalizzato (perso¬ 
nalizzazione di cui tratteremo più 
avanti) di tutti gli indirizzi che han¬ 
no nel titolo onorifico le prime 3 
lettere =“EGR". 

Questa scelta è stata inserita per 
elencare nel tabulato solo alcuni no¬ 
minativi, mentre le lettere potrebbe¬ 
ro essere inviate anche ad altre per¬ 
sone non a titolo ricorrente, ma co¬ 
munque da inserire nella rosa degli 
indirizzi. 

L’opzione M visualizzerà uno ad 
uno tutti gli indirizzi sul video con le 
seguenti possibilità (riportate in alto 


sullo schermo): 

CR per continuare; 

C per cancellare; 

S per stampare; 

U per uscire. 

L’opzione S ha la stessa funzione 
delle righe di testo e determina gli 
indirizzi da stampare. 

L’opzione U serve per ritornare al 
menu indirizzi. 

2) Modificare: serve per inserire o 
modificare un indirizzo. 

Sul video sarà visualizzato l’indiriz¬ 
zo (o una stringa vuota se non vi 
sono elementi) con la richiesta “Mo¬ 
difico S/N”. 

Digitando S escono ad uno ad uno 
gli input dei campi dell’indirizzo con 


richiesta finale di conferma. 

Per il motivo già detto alcuni nomi¬ 
nativi avranno un titolo onorifico 
che inizia con “EGR”, gli altri un 
altro titolo (esempio Ill.mo). 
Digitando N si passa alla visualizza¬ 
zione dell’indirizzo successivo. 

Per uscire dalla routine occorre far 
passare tutti i 100 indirizzi con il 
tasto N che lascerà inalterato l’ar¬ 
chivio. 

3) Continuare: ultimata la scelta de¬ 
gli indirizzi da stampare con questa 
opzione si passa alla routine di 
stampa. 

4) Menu: ritorno al menu iniziale del 
programma. 

5) Ordinare: riordina l’archivio indi- 
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Seguito listato 1. 

3766 FORK=1T05 
3770 NN$a,K>="" 

3780 NEXTK 

3790 NEXTI 

3800 FORI=1TDK1 

3810 F0RL=1T021 

3820 IFINDI * U,2 >= : " "THEH3880 

3830 IFINDI$ <1,5)<>""THEN3880 

3840 I Ffl$ < L > =LEFT* < I ND I $ < I > 2), 1 > THENR2 < I )=25*L 

3850 IFfl*<L >=MIDf<INDI$<I> 2),2,1>THEHR3<I>=L 

3860 HEXTL 

3870 INDIf(I »5>=STR$<fl2<I)+03<I>> 

3880 NEXTI 

3890 XV=1 

3900 FORI=1TO550 

3916 FORL=lTOKl 

3920 IFI ND 1 1 < L, 2 )=" 11 THEN3950 

3930 IFURL a NDI $ <L,5 >) = ITHENFORK=1T05:NN$<XV,K >=INDIf(L,K>: INDI$ < L,K > NEXTK: X 

V=XV+1 

3940 PRINT"SB";L 
3950 HEXTL 

J ?b t ‘ rKIMI uuuuuuuuuuuuuuuuuuuuuuunuù 

3970 NEXTI 

3980 FORI»ITO160 

3990 F0RL=1T05 

4000 INDI$<I;L)=NH$<I>L) 

4010 HEXTL 
4020 NEXTI 
4030 G0TQ810 


rizzi con ordine alfabetico sulle pri¬ 
me due lettere del cognome. 

Routine di stampa 

All’inizio della routine di stampa 
vi sono 3 input per determinare: 

• gli spazi tra indirizzo e testo; 

• il carattere degli indirizzi P piccolo 
G grosso; 

• il carattere del testo P piccolo G 
grosso. 

Prima di dare il CR all’input caratte¬ 
re testo assicurarsi che la stampante 
sia accesa e posizionata all’inizio del 
foglio. 

Dopo il CR la stampante inizierà la 
stampa del testo modificando, ad 
ogni foglio, l’indirizzo. 

Le copie stampate saranno esatta¬ 
mente uguali agli indirizzi scelti. 

Personalizzazione testi 

È possibile personalizzare i fogli 
da spedire o il tabulato elenco iscrit¬ 
ti con le indicazioni del club - del¬ 
l’associazione o altro. 

Per fare ciò occorre modificare il 
programma alle righe 1090-1100 per 
il tabulato iscritti; alle righe 1640- 
1650 per le lettere, sostituendo alle 
XXXXXXXX il nome del club - la 
città ecc. ■ 



COMMENTO LINEE 

10-90 

Dimensionamento matrici e variabili. 

100-290 

Menu iniziale e rimandi alle linee del programma. 

300-450 

Opzione testi e rimando linee. 

460-750 

Stesura - correzione - stampa testo con indirizzi. 

810-1020 

Stesura - correzione - visualizzazione - stampa indirizzi. 

1030-1190 

Stampa tabulato iscritti - Attenzione - stampa solo quelli che 
iniziano con Egr. sig. 

1200-1310 

Visualizzazione indirizzi su monitor con opzione per stampa 
- cancellazione. 

1320-1510 

Routine modifica indirizzi. 

*520-1780 

Stampa lettere con gli indirizzi stabiliti. 

1790-2050 

Stesura - modifica - stampa testi senza indirizzi. 

2060-2340 

Stampa testo con opzione del numero delle copie. 

2350-2610 

Stesura - modifica - stampa testo senza indirizzi. 

2620-2860 

Stampa testo con opzione del numero delle copie. 

2870-3260 

Lettura archivio file da cassetta con visualizzazione dati 
letti. 

3270-3640 

Registrazione archivio testi e indirizzi su cassetta. 

3650-4030 

Ordinamento alfabetico dell’archivio indirizzi. 


ELENCO VARIABILI 

ARI$(10) 

Testi con indirizzi GEO$(10) = testi semplici. 

ALGE$(10) 

Testi semplici. 

STI(10) 

1 = testo da stampare; 0 testo da non stampare. 

INDI$(100,5) 

Indirizzi con 5 campi, il quinto serve per il numero di 
ordinamento alfabetico. 

MSI(100) 

1 = indirizzo da stampare; 0 = indirizzo da non stampare. 
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df 


sort 


a mb 
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Alta risoluzione 


Un valido aiuto 
per la grafica del C 64 


di Antonio Bartalesi 

I l Commodore 64 possiede 
delle discrete capacità gra¬ 
fiche, per esempio in alta 
risoluzione (bit map mode) permet¬ 
te di controllare lo schermo con una 
risoluzione di 320 x 200 punti, e for¬ 
nisce anche un certo controllo dei 
colori. 


Purtroppo la grafica in alta risolu¬ 
zione non è stata implementata nel 
sistema operativo, e ciò costringe 
chi vuole usarla e non dispone di un 
apposito package in linguaggio 
macchina, a scrivere lunghi, e lenti, 
programmi in BASIC pieni di istru¬ 
zioni PEEK e POKE. 

Comunque, ciò che spesso scoraggia 
maggiormente l’uso dell'alta risolu¬ 
zione, è la necessità di eseguire fre¬ 
quentemente complesse operazioni 
di PEEK e POKE per passare dalla 
pagina in alta risoluzione a quella 
testo, senza peraltro poterle mai ve¬ 
dere entrambe contemporaneamen¬ 
te. 


La routine descritta in questo arti¬ 
colo fornisce una soluzione molto 
semplice a questo problema: la pagi¬ 
na in alta risoluzione può in qualsia¬ 
si momento, anche durante l'esecu¬ 
zione di un programma, essere cala¬ 
ta su e giù come un sipario su quella 
testo, e fermata a qualsiasi altezza. 

Ciò permette, per esempio, di cre¬ 
are un disegno in alta risoluzione 
continuando ad usare le ultime linee 
di schermo in basso per esaminare il 
programma o per eseguire delle 
istruzioni di input. 

La routine non elimina naturalmen¬ 
te le difficoltà intrinseche all'uso 
dell’alta risoluzione, vuole piuttosto 


Listato 1. // programma in Assembly. 

10000 ...-. 

10010 HIRES SYSTEM. 

10020 ; 

10030 SI DEFINISCE LA PARTE SUPERIORE 
10040 DELLO SCHERMO IN ALTA RISOLUZIONE 
10050 E LA PARTE INFERIORE IN MODO 
10060 TESTO. 

10070 ; 

10080 I TASTI CTRL-F5 E CTRL-F7 
10090 SPOSTANO IL CONFINE. 

10100 CTRL-Fi SPENGE L'ALTA RISOLUZIONE 
10110 E CTRL-F3 LA RIACCENDE. 

10120 ; 

10130 CON L’ALTA RISOLUZIONE ACCESA, LA 
10140 SORGENTE PER L'INTERRUPT E' IL 
10150 RASTER DEL VIC A 50HZ, ANZICHÉ' 
10160 IL TIMER DELLA CIA A 60HZ. 

10170 ; 

10180 L'ENTRY POINT E' KEYON; PER 
10190 SPENGERE, KEYOFF 

10192 ; 

10193 L'ALTA RISOLUZIONE E' MAPPATA 

10194 NELLA RAM DA $6000 A $7FFF. 

10195 I COLORI SONO NELL’AREA 

10196 DA $5C00 A $5FFF. LA ROUTINE 

10197 PARTE DA $9000. 

10200 .. 

10210 DATA” .ORG $8000 

10300 ..-. 

10310 DEFINIZIONE COSTANTI ESTERNE. 
10320 ; 

10330 DATA"VIC .EQU $D000 


10340 
10350 
10360 
1 0370 
1 0380 
10390 
10400 
10410 
10500 
10510 
10520 
10530 
10540 
10560 
10580 
10590 
10600 
10610 
1 0620 
1 0630 
1 0640 
10650 
10660 
10670 
10680 
10690 
10700 
1071 0 
10720 
1 0725 
10730 
1 0740 
10750 
10760 


DATA"CIAl .EQU $DC00 
DATA"CIA2 .EQU $DD00 
DATA"CINV .EQU $314 
DATA"KEYLOG.EQU $28F 
DATA"IRQK .EQU $EA31 
DATA"SFDX .EQU $CB 
DATA"LSTX .EQU $C5 
DATA"SHFLAG.EQU $28D 


PARAMETRI E VARIABILI. 

t 

DATA"BANK -.BYT 2,3 
DATA"MEMPTS.BYT $78,$10 
DATA"RASTER.BYT $C0,0 
DATA"DELAY .BUF 1 
DATA"FREQ .BUF 1 


SCAMBIO ALTA/BASSA RISOLUZIONE. 


DATA"SWAP 
DATA" 

DATA" 

DATA" 

DATA" 

DATA"Al ; 
X=0 NOW LORES 


LDX #0 
LDA VIC+17 
AND #$20 
BEQ Al 
INX 


X=1 NOW HIRES 


, 

PONE IL RASTER LATCH PER LA 
PROSSIMA INTERRUZIONE E CAMBIA IL 
MODO GRAFICO: 

DATA" LDA RASTER,X 

DATA" STA VIC+18 

DATA" LDA VIC+17 

DATA" AND #$7F 
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togliere un ostacolo di tipo psicolo¬ 
gico. 

Il programma, in linguaggio mac¬ 
china, è stato realizzato usando un 
assemblatore scritto in BASIC e, an¬ 
ziché presentare soltanto una sfilza 
di numeri senza significato in istru¬ 
zioni DATA, si è preferito riportare 
direttamente il listato in Assembly 
commentato (listato 1), anche se la 
sua sintassi difficilmente sarà accet¬ 
tata da un altro assemblatore. 

Per chi possiede un assemblatore, 
non sarà comunque difficile inter¬ 
pretare e riscrivere le istruzioni. A 
chi ha un monitor potrà essere utile 
la tabella dei simboli nel listato 2. 


Per dare anche agli altri la possibili¬ 
tà di usare il programma, nel listato 
3 è riportato un elenco di istruzioni 
DATA, i cui codici devono essere 
inseriti in memoria a partire dalla 
locazione 32768. 

Ogni quattro linee DATA, vi è un 
codice di controllo uguale alla som¬ 
ma dei codici delle quattro linee 
stesse. 

Il lettore potrà aggiungere un pro¬ 
gramma caricatore in BASIC. 

Il listato in Assembly servirà co¬ 
munque come documentazione, e 
come un esempio in seguito agli arti¬ 
coli sulla programmazione del 6502 
pubblicati su Personal Software. 


Uso del programma 

La pagina in alta risoluzione è 
quella da $6000 a $7FFF. 

Il programma è allocato a partire da 
$8000 ed è lungo 291 byte. 

Per i colori si usa l’area da $5C00 a 
$5FFF. 

Quindi è opportuno limitare l’area 
di memoria riservata ai programmi 
e alle variabili BASIC al di sotto di 
$5C00, eseguendo il comando: 
POKE 52,92: POKE 56,92. 

La routine, una volta caricata nelle 
giuste locazioni di memoria, si atti¬ 
va con SYS 32950, e si disattiva con 
SYS 32964. 

Quando la routine è attiva, funzio- 


10780 

DATA" 

EOR #$20 


11070 

DATA" 

AND #$01 

"1 

10790 

DATA" 

STA VIC+17 


11080 

DATA" 

BEQ Bl 


1 0800 

? 



11090 

DATA" 

STA VIC+25 


1081 0 

PONE I PUNTATORI ALLE AREE DI 


11100 




10820 

MEMORIA: 



mio 

PER SINCRONIZZARE IL CAMBIO DI 


10830 

DATA" 

LDA VIC+24 


11120 

MODO GRAFICO CON LA FINE DI UNA 


10840 

DATA" 

AND #$07 


11130 

RIGA: 



1 0850 

DATA" 

ORA MEMPTS,X 


11140 

DATA"SYNC 

LDX #5 


10860 

DATA" 

STA VIC+24 


11150 

DATA"B2 

DEX 


1 0870 

r 



11160 

DATA" 

BPL B2 


10880 

SELEZIONA 

IL BLOCCO DI MEMORIA: 


11170 

IL VALORE 

INIZIALE VA DETERMINATO 


10890 

DATA" 

LDA CIA2+2 


11180 

IN FASE DI 

MESSA A PUNTO. 


10900 

DATA" 

ORA #$03 


11190 

/ 



10910 

DATA" 

STA CIA2+2 


11200 

CAMBIA MODO GRAFICO E UNA VOLTA 


10920 

DATA" 

LDA CIA2 


11210 

OGNI DUE SALTA ALL'INTERRUPT 


10930 

DATA" 

AND #$FC 


11220 

NORMALE: 



10940 

DATA" 

ORA BANK,X 


11230 

DATA" 

JSR SWAP 


10950 

DATA" 

STA CIA2 


11240 

DATA" 

BEQ B3 


10960 

} 



11250 

DATA"B1 

JMP IRQK 


10970 

DATA" 

DEX 


11260 

DATA"B3 

PLA 


10980 

X=0 NOW LORES : X=-l NOW HIRES 


11270 

DATA" 

TAY 


10985 

i 



11280 

DATA" 

PLA 


10990 

DATA" 

RTS 


11290 

DATA" 

TAX 


11000 




11300 

DATA" 

PLA 


11010 

ROUTINE DI 

INTERROPT RICHIAMATA 


11310 

DATA" 

RTI 


11020 

DUE VOLTE 

OGNI SEMIQUADRO, CHE 


11400 




11023 

PRODUCE LA PARTIZIONE DELLO 


11410 

ACCENSIONE 

DELLA ROUTINE 


11026 

SCHERMO. 



11420 

PRECEDENTE 

• 


11030 

t 



11 430 

} 



11033 

DATA"IRQHIR; 


11440 

DATA"HIRON 

PHP 


11 036 

f 



11445 

DATA" 

SEI 


11040 

CONTROLLA 

CHE L’INTERRUPT VENGA 


11450 

f 



11050 

DAL VIC E 

LO AZZERA: 


11460 

MODIFICA IL VETTORE DI INTERRUPT: 


11060 

DATA" 

LDA VIC+25 


11470 

DATA" 

LDA #<IRQHIR 

J 
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Seguilo listato 1. 



11480 

DATA" 

STA CINV 


11490 

DATA" 

LDA #>IRQHIR 


11 500 

DATA" 

STA CINV+1 


1 1 51 0 

/ 



11 520 

DISABILITA 

L'INTERRUPT DELLA CIA: 

11530 

DATA" 

LDA #$01 


11 540 

DATA" 

STA CIAl+13 


1 1 550 

9 



11 560 

ABILITA L' 

INTERRUPT DEL VIC 

: 

11570 

DATA" 

ORA VIC+26 


11 580 

DATA" 

STA VIC+26 


11590 

9 



11600 

DATA" 

PLP 


11610 

11 700 

DATA" 

RTS 


11 71 0 

SPEGNIMENTO DELLA STESSA. 


1 1 720 

9 



11730 

DATA"HIROFF PHP 


11735 

DATA" 

SEI 


11740 

9 



11750 

RIPRISTINA 

IL VETTORE STANDARD: 

11760 

DATA" 

LDA #<IRQK 


11770 

DATA" 

STA CINV 


11780 

DATA" 

LDA #>IRQK 


11790 

DATA" 

STA CINV+1 


11800 

f 



11810 

DISABILITA 

L’INTERRUPT DEL 

VIC: 

11820 

DATA" 

LDA VIC+26 


11830 

DATA" 

AND #$FE 


11840 

DATA" 

STA VIC+26 


1 1 850 

9 



11 860 

RIABILITA 

QUELLO DELLA CIA: 


11 870 

DATA" 

LDA #$81 


1 1 880 

DATA" 

STA CIAl+13 


11890 

$ 



11900 

DATA" 

PLP 


11910 

/ 



11920 

SI ASSICURA CHE LO SCHERMO 

SIA 

11930 

RIMASTO IN 

MODO TESTO: 


11940 

DATA"Cl 

JSR SWAP 


11950 

DATA" 

BNE Cl 


11960 

12000 

DATA" 

RTS 


SPOSTA LA 

PARTIZIONE DELLO 


12010 

12020 

SCHERMO DI 

8 PIXEL VERSO L' 

ALTO. 

1 2030 

9 



12040 

DATA"UP 

LDA RASTER 


12050 

DATA" 

SEC 


12060 

DATA" 

SBC #8 


12070 

DATA" 

CMP #$30 


1 2080 

DATA" 

BCS Di 


12090 

DATA" 

LDA #$30 


12100 

DATA"Di 

STA RASTER 


12110 

DATA" 

RTS 


12200 

12210 

LA SPOSTA 

DI 8 PIXEL VERSO 

IL 

12220 

BASSO. 



1 2230 

/ 



1 2240 

DATA"DOWN 

LDA RASTER 


12250 

DATA" 

CLC 


1 2260 

DATA" 

ADC #8 



1 2270 
1 2280 
12290 
1 2300 
1 2400 
12410 
1 2420 
1 2430 
1 2433 
12436 
1 2440 
1 2445 
1 2450 
1 2460 
12470 
1 2480 
12490 
1 2500 
1 2600 
12610 
1 2620 
12630 
1 2640 
12645 
12650 
12660 
12670 
12680 
12690 
12700 
12800 
12810 
12820 
1 2830 
12840 
1 2850 
1 2860 
1 2870 
12880 
1 2890 
12900 
12910 
12920 
1 2930 
1 2940 
1 2950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 
1 3030 

13032 

13033 
1 3034 
13040 
1 3050 
1 3060 
13070 
1 3080 
13100 
13110 
1 31 20 
13130 
131 50 
13160 
13170 
13180 
13190 


DATA" 

BCC D2 

DATA" 

LDA #$F8 

DATA'<D2 

€TA RASTER 

DATA" 

RTS 

ACCENSIONE 1 

DEL SISTEMA PER 

L'ESAME DEI 

TASTI FUNZIONE. 

MODIFICA IL 

VETTORE ALLA ROUTINE 

CHE ESAMINA 

IL TASTO PREMUTO: 

DATA"KEYON 

PHP 

DATA" 

SEI 

DATA" 

LDA #<UDKEY 

DATA" 

STA KEYLOG 

DATA" 

LDA #>UDKEY 

DATA" 

STA KEYLOG+1 

DATA" 

PLP 

DATA" 

RTS 

SPEGNIMENTO 

DEL SISTEMA. 

RIPRISTINA 

IL VETTORE STANDARD: 

DATA"KEYOFF 

PHP 

DATA" 

SEI 

DATA" 

LDA #<$EB48 

DATA" 

STA KEYLOG 

DATA" 

LDA #>$EB48 

DATA" 

STA KEYLOG+1 

DATA" 

PLP 

DATA" 

RTS 

ROUTINE PER 

L’ESAME DEI TASTI 

FUNZIONE, RICHIAMATA SOTTO 

INERRUPT DALLA ROUTINE DI 

SCANSIONE TASTIERA. 

DATA"UDKEY 

9 

9 

CONTROLLA CHE SIA PREMUTO IL 

TASTO CTRL: 


DATA" 

LDA SHFLAG 

DATA" 

CMP #4 

DATA" 

BNE El 

CONTROLLA CHE SIA PREMUTO UN 

TASTO FUNZIONE: 

DATA" 

LDA Z,SFDX 

DATA" 

CMP #3 

DATA" 

BCC El 

DATA" 

CMP #7 

DATA" 

BCS El 

9 

IN QUESTO CASO, INTERPRETA ED 

ESEGUE IL COMANDO 

(A CONTIENE 

I SEGUENTI VALORI: 

; 3 PER CTRL 

-F7, 4 PER CTRL-Fi, 

; 5 PER CTRL 

-F3, 6 PER CTRL-F5): 

DATA" 

JSR EXEC 

RIENTRA NELLA ROUTINE DI 

SCANSIONE TASTIERA: 

DATA"El 

JMP $EB48 


INTERPRETAZIONE DEI TASTI. 


IL LORO SIGNIFICATO E': 
HIROFF PER CTRL-Fi, 
HIRON PER CTRL-F3, 

UP PER CTRL-F5, 

DOWN PER CTRL-F7. 
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Alta 

risoluzione 


Seguito listato I. 



1 3200 

DATA"EXEC 

TAX 


1 321 0 

1 3220 

SE IL TASTO NON 

ERA GIÀ' PREMUTO, 

1 3230 

SALTA LA LOGICA 

DI REPEAT: 

1 3240 

DATA" 

CMP 

Z,LSTX 

1 3250 

DATA" 

BNE 

Fi 

1 3260 

1 3270 

SOLO CTRL- 

F5 E CTR-F7 SI ESEGUONO 

1 3280 

ANCORA SE 

ERANO 

GIÀ’ PREMUTI: 

1 3290 

DATA" 

AND 

#$02 

1 3300 

DATA" 

BEQ 

F2 

13310 

1 3320 

LOGICA DI 

REPEAT: 

1 3330 

DATA" 

DEC 

DELAY 

1 3340 

DATA" 

BNE 

F2 

1 3350 

DATA" 

INC 

DELAY 

1 3360 

DATA" 

DEC 

FREQ 

1 3370 

DATA" 

BNE 

F2 

1 3380 

DATA" 

LDA 

#4 

1 3390 

DATA" 

STA 

FREQ 

1 3400 
13410 

ESECUZIONE 

DI CTRL-5 E CTRL-7: 


1 3420 

DATA"F3 

TXA 


1 3430 

DATA" 

ROR 

A 

1 3440 

DATA" 

BCC 

UP 

1 3450 

DATA" 

BCS 

DOWN 

1 3460 

/ 



1 3470 

IL TASTO 

NON ERA GIÀ' PREMUTO 

1 3480 

DATA"Fi 

LDY 

#16 

1 3490 

DATA" 

STY 

DELAY 

1 3493 

DATA" 

LDY 

#1 

1 3496 

DATA" 

STY 

FREQ 

1 3500 

f 



13510 

SI ESEGUE 

IL COMANDO: 

13520 

DATA" 

AND 

#$02 

1 3530 

DATA" 

BNE 

F3 

13535 

DATA" 

TXA 


1 3540 

DATA" 

ROR 

A 

13550 

DATA" 

BCC 

F4 

1 3560 

DATA" 

JMP 

HIRON 

13565 

DATA"F4 

JMP 

HIROFF 

1 3570 

r 



13580 

DATA"F2 

RTS 


1 3600 
1361 0 

1 3700 

DATA" 

• END 



nano i tasti CTRL-FI, CTRL-F3, 
CTRL-F5 e CTRL-F7, col seguente 
significato: CTRL-F3 abilita la pa¬ 
gina in alta risoluzione ad essere vi¬ 
sualizzata, CTRL-F1 la disabilita, 
CTRL-F5 e CTRL-F7 muovono il 
sipario rispettivamente verso l’alto e 
verso il basso. 

Queste combinazioni di tasti non 
dovrebbero interferire con nessun 
programma scritto in BASIC stan¬ 
dard, in quanto ad esse il sistema 
operativo non assegna codici 
ASCII. 


Descrizione di massima 
del programma 

Il programma è formato da due 
parti, entrambe eseguite sotto inter- 
rupt: una presiede al controllo del 
VIC (Video Interface Chip), e l’altra 
all’esame dei tasti. 

La routine clic controlla il VIC è 
Irqhir, e viene accesa e spenta rispet¬ 
tivamente da Hiron e Hiroff. 

Per capirne il funzionamento, biso¬ 
gna far riferimento al modo in cui 
opera il VIC all’interno del Commo¬ 
dore 64. 

Esso trasferisce al televisore, linea 
per linea, le informazioni di cui que¬ 


sto ha bisogno per ricostruire l’im¬ 
magine, andando a prenderle nella 
memoria con un metodo di indiriz¬ 
zamento che dipende dal modo gra¬ 
fico in cui si trova. 

Il VIC contiene un contatore (ra- 
ster) il cui contenuto indica la linea 
di scansione attuale. 

Per avere la parte alta dello schermo 
in un modo grafico e la parte bassa 
in un altro, bisogna cambiare modo 
grafico in corrispondenza di due de¬ 
terminati valori di questo contatore. 
Il VIC permette di fare questo; infat¬ 
ti uno dei suoi registri, il raster regi- 
ster, registro numero 18, contiene 
sempre il valore del raster; inoltre, 
scrivendo un certo valore in questo 
registro, si può programmare il VIC 


Listato 2. Tavola dei simboli. 


53248 

: $D000 

VIC 

56320 : 

$DC00 

CIAl 

56576 : 

$DD00 

CIA2 

788 : 

$031 4 

CINV 

655 : 

$028F 

KEYLOG 

59953 : 

$EA31 

IRQK 

203 : 

$00CB 

SFDX 

197 : 

$00C5 

LSTX 


653 : 


$028D 

SHFLAG 

32768 

: 

$8000 

BANK 

32770 

• 

• 

$8002 

MEMPTS 

32772 

• 

• 

$8004 

RASTER 

32774 

• 

• 

$8006 

DELAY 

32775 

• 

• 

$8007 

FREQ 

32776 

: 

$8008 

SWAP 

32786 

• 

$8012 

Al 

32834 

• 

• 

$8042 

IRQHIR 

32844 

• 

$804C 

SYNC 

32846 

• 

• 

$804E 

B2 

32854 

• 

• 

$8056 

Bl 

32857 

• 

$8059 

B3 

32863 

: 

$805F 

HIRON 

32888 

• 

• 

$8078 

HIROFF 

32914 

• 

• 

$8092 

CI 

32920 

• 

• 

$8098 

UP 

32932 

• 

• 

$80A4 

Di 

32936 

• 

$ 80A8 

DOWN 

32946 

• 

• 

$ 80B2 

D2 

32950 

• 

• 

$80B6 

KEYON 

32964 

• 

• 

$80C4 

KEYOFF 

32978 

• 

• 

$80D2 

UDKEY 

32998 

• 

• 

$80E6 

El 

33001 

• 

• 

$80E9 

EXEC 

33028 

• 

• 

$81 04 

F3 

33034 

l 

$81 0A 

Fi 

33055 

: 

$81 1F 

F4 

33058 

: 

$81 22 

F2 
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Alta 

risoluzione 


Listato 3. Codici da inserire a partire dalla locazione 
32768. Ogni linea contiene otto codici. Ogni quattro 
linee vi è un codice di controllo uguale alla somma dei 
32 codici precedenti. Il lettore dovrebbe aggiungere il 
programma caricatore in BASIC. 

100 DATA2,3,120,16,152,0,16,1 
110 DATAI 62,0,173,17,208,41,32,240 
120 DATAI,232,189,4,128,141,18,208 
130 DATAI 73,1 7,208,41 , 1 27,73,32,1 41 
140 DATA2916 

150 DATAI 7,208,1 73,24,208,41 ,7,29 
160 DATA2,128,141,24,208,173,2,221 
170 DATA9,3,141,2,221,173,0,221 
180 DATA41,252,29,0,128,141,0,221 
190 DATA3188 

200 DATA202,96,1 73,25,208,41 , 1,240 
210 DATAI 3,1 41 ,25,208,1 62,5,202,1 6 
220 DATA253,32,8,128,240,3,76,49 
230 DATA234,104,168,104,170,104,64,8 
240 DATA3503 

250 DATAI 20, 169,66,141 ,20,3,169,128 


260 DATAI 41 ,21,3,1 69,1 , 1 41 ,1 3,220 
270 DATAI 3,26,208,1 41 ,26,208,40,96 
280 DATA8,120,169,49,141 ,20,3,1 69 
290 DATA2962 

300 DATA234,141,21,3,173,26,208,41 
310 DATA254,1 41 ,26,208,1 69,1 29,1 41 , 1 3 
320 DATA220,40,32,8,128,208,251,96 
330 DATAI 73,4,1 28,56,233,8,201 , 48 
340 DATA3762 

350 DATAI 76,2,1 69,48,1 41 ,4,1 28,96 
360 DATA173,4,128,24,105,8,144,2 
370 DATAI 69,24 8,1 41 ,4,1 28,96,8,1 20 
380 DATAI 69,21 0, 1 41 , 1 4 3,2,1 69,1 28,1 41 
390 DATA3369 

400 DATAI 44,2,40,96,8,120,169,72 
410 DATAI 41 ,143,2,1 69,235,141 ,144,2 
420 DATA40,96,173,141 ,2,201 ,4,208 
430 DATAI 3,1 65,203,201 ,3,1 44,7,201 
440 DATA3430 

450 DATA7,176,3,32,233,1 28,76,72 
460 DATA235,170,197,197,208,28,41 ,2 
470 DATA240,48,206,6,128,208,43,238 
480 DATA6,128,206,7,128,208,35,169 
490 DATA3809 

500 DATA4,141,7,128,138,106,144,144 

510 DATAI 76,158,160,16,1 40,6,128,160 

520 DATAI, 1 40,7,1 28,41 , 2,208,236 

530 DATAI 38,1 06,1 44,3,76,95,1 28,76 

540 DATA3285 

550 DATAI 20,128,96 

560 DATA-1,344 


perché richieda un interrupt quando 
il contatore uguaglia quel valore. 
Se la routine di interrupt, oltre alle 
sue funzioni normali, si occupa an¬ 
che di cambiare modo grafico quan¬ 
do la richiesta è fatta dal VIC, il 
gioco è fatto. 

Bisogna osservare però che se per 
qualche motivo alcune richieste di 
interrupt da parte del VIC andasse¬ 
ro perdute, si avrebbero conseguen¬ 
ze spiacevoli sullo schermo. 

Ora, questo è proprio quello che 
succede se vi è anche un’altra sor¬ 
gente di interrupt, poiché mentre il 
calcolatore esegue la routine corri¬ 
spondente, non accetta eventuali al¬ 
tre richieste. 

Normalmente il Commodore 64 usa 
come sorgente di interrupt un timer 
contenuto nella CIA (Complex In¬ 
terface Adapter) numero 1, pro¬ 
grammato per produrre 60 richieste 
di interrupt al secondo. 

Per quanto detto sopra, si rende ne¬ 
cessario disabilitare questo disposi¬ 
tivo, e usare il raster come unica 
sorgente di interrupt. 
Fortunatamente ciò è possibile, poi¬ 
ché la frequenza del raster, uguale a 
quella televisiva di semiquadro (50 
Hz), differisce poco dai 60 Hz del 


timer. 

L’unica differenza che si nota è un 
leggero rallentamento nel lampeg¬ 
gio del cursore; inoltre la variabile 
BASIC TI contiene il tempo in cin¬ 
quantesimi di secondo anziché in 
sessantesimi. 

Irqhir è la nuova routine di inter¬ 
rupt, e Hiron e Hiroff, oltre a modi¬ 
ficare il vettore in $314-315, selezio¬ 
nano la sorgente di interrupt. 
Passiamo alla seconda funzione del 
programma, il riconoscimento dei 
tasti funzione. 

La routine è Udkey, che viene atti¬ 
vata e disattivata rispettivamente da 
Keyon c Keyoff. 

Su Udkey non c’è molto da dire: 
essa esamina il tasto premuto, e agi¬ 
sce di conseguenza usando Hiron e 
Hiroff per accendere e spengere la 
pagina grafica, e Up e Down per 
diminuirne o aumentarne la parte 
visibile. 


I salti indiretti in $314-315 
e in $28F-290 

Molte funzioni del sistema opera¬ 
tivo del Commodore 64 sono vetto- 
rizzate, sono cioè eseguite da routi¬ 


ne che vengono richiamate tramite 
un salto indiretto ad una locazione 
di memoria RAM. 

Ciò rende il sistema molto flessibile 
perché, modificando il vettore in 
RAM, si può sostituire, in tutto o in 
parte, la routine corrispondente. 

I vettori che ci interessano sono 
quelli in $314-315 e in $28F-290. 
$314-315 c relativo all’interrupt, c il 
suo valore normale ($EA3I) punta 
al programma che gestisce il lam¬ 
peggio del cursore, l’aggiornamento 
dell’orologio in sessantesimi e la 
scansione della tastiera. 

All’interno della routine di scansio¬ 
ne tastiera, l’esame del tasto premu¬ 
to è a sua volta vettorizzato in $28F- 
290. 

II valore normale ($EB48) di questo 
vettore punta al programma che si 
occupa principalmente di trovarne il 
codice ASCII e di immetterlo nel 
buffer di tastiera. 

Questo programma ha come in¬ 
gresso le locazioni di memoria $CB, 
che contiene il codice del tasto pre¬ 
muto (numero legato alla sua posi¬ 
zione sulla tastiera, non codice 
ASCII), e $28D che contiene tostato 
dei tasti SHIFT (bit 0), Commodore 
(bit 1) e CONTROL (bit 2). ■ 
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A Milano, in via Mascheroni. 14. 
la prima software - libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 

Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. La prima software - libreria italiana. 

A Milano, in via Mascheroni. 14 . - Tei. 02-437385 

Vieni a trovarci: ti aspettiamo. 











rafica e joystick 
-per Apple II— 


Due utility 
molto interessanti 


di Claudio Poma 

S pesso quando si parla di 
un computer gli argomen¬ 
ti principe sono il numero 
di bit del processore e i Kbyte di 
memoria. Si tratta senz’altro degli 
aspetti più rilevanti del problema, 
ma ne esiste un altro che, seppur 
taciuto, non ha minore importanza 
dei precedenti ed è il buon uso del 
sistema posseduto e se i primi sono 
strettamente legati all’hardware, e 
quindi poco manipolabili, il secon¬ 
do dipende prevalentemente dal 
software ed è quello sul quale l’uten¬ 


te finale può lavorare con i migliori 
risultati. 

In riferimento a quanto appena det¬ 
to, ora tratteremo alcuni aspetti del¬ 
la grafica e dell’uso dei joystick nel¬ 
l’Apple II. 

Le tavole delie figure 

Tutti i possessori di un Apple II 
sanno che la grafica ad alta risolu¬ 
zione della loro macchina è gestibile 
in due modi: da una parte si possono 
tracciare i disegni desiderati facendo 
uso della istruzione HPLOT, dal¬ 
l’altra si possono approntare delle 
tavole di figure da utilizzare al mo¬ 
mento opportuno c con degli ordini 
predisposti. 

La prima è senz’altro la più semplice 
da gestire e va benissimo se si devo¬ 
no tracciare grafici o istogrammi, 
ma se si tenta di creare un movimen¬ 


to di immagini i problemi crescono a 
causa di una lentezza non sempre 
accettabile. La soluzione ci è data 
dalla seconda opzione prima men¬ 
zionata, ma qui ci sono i primi dolo¬ 
ri. Se i risultati sono buoni, l’otte¬ 
nerli non è la cosa più chiara a meno 
di non far ricorso a dei programmi 
predisposti, ma che, oltre all’essere 
in genere costosi, non sempre valgo¬ 
no la candela, soprattutto se il di¬ 
segno richiesto non è molto com¬ 
plesso. 

Vediamo, quindi, come definire del¬ 
le figure e come usarle in programmi 
di movimento. 

Per prima cosa ci si deve premuni¬ 
re di fogli a quadretti sui quali trac¬ 
ciare i contorni che delimitino le di¬ 
mensioni massime deH’immagine 
che vogliamo rappresentare. Ese¬ 
guita la cornice è la volta del di¬ 
segno vero e proprio e, una volta 


Listato I. Il programma per l'aiuto grafico sull'Apple. 
TAVOLE DELLE FORME 

10 DIM SI(500).VI(500),VE*(500) 

20 POKE 34,0: HOME 

25 INVERSE : PRINT “MENU' TAVOLA DELLE 
FORME": NORMAL 


30 

PRINT 

s 

PRINT 

: PRINT “1> Nuova tav 

o) a 

■ 





33 
r i " 

35 

PRINT 

! 

PRINT 

“2) 

Cambiamento vetto 

PRINT 

I 

PRINT 

“3) 

Visualizzazione v 

e 11 or i " 





37 
ri " 
39 

PRINT 

I 

PRINT 

”4) 

Conversione vetto 

PRINT 

: 

PRINT 

“5) 

FINE* 

41 

PRINT 

: 

PRINT 

: PRINT i PRINT “Dimmi 


un numero e premi (RETURN) "ji INPUT 
W 

43 IF W < 1 OR U > 5 THEN 20 

44 HOME 

45 ON W GOTO 50,75,500,100,450 
50 Mi = "‘li =0 

55 V = li GOSUB 270 

60 IF M* < > “E" THEN SI(I) = M:I = I 

+ 1 I GOTO 55 


65 POKE - 16368,10 

70 6ET A*: GOTO 20 

75 POKE - 16368,101 PRINT 

80 INPUT “Vettore da cambiare (0=FINE> 

: “ |V 

85 IF V < 0 THEN 75 

90 IF V > 0 THEN V * V - 1: GOSUB 270:S 
1(V) = Mi GOTO 75 
95 GOTO 20 
100 FOR V * 0 TO I 

110 IF B = 2 AND SI(V) > 0 AND S1(V) ( 

4 THEN 140 

120 IF B ( 2 AND (S1(V) > 0 OR SI(V) > 

4) THEN 140 

130 8 * 0 : Q = Q ♦ 1 

140 VI(Q) = VI(Q) + SI(V) # (8 “ B) 

150 B = B + 1 

160 IF B > 2 THEN B = 0 i Q = Q + 1 
170 NEXT 

180 PRINT “Byte* ji HTAB 15: PRINT "ESA. 
“li HTAB 27: PRINT “DEC.“ 

185 PRINT i POKE 34,2 
190 FOR V = 0 TO Q 

195 IF (V / 15) = INT (V / 15) THEN G 
ET A* 

200 HX = VI(V) / 16 
210 LX = V1(V) - HX » 16 
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ultimatolo, bisogna segnare tutti i 
quadretti di contorno fino all’otte¬ 
nimento della forma stilizzata del¬ 
l’oggetto in questione. A questo 
punto, partendo da un punto della 
figura si deve descrivere il disegno 
usando i simboli: su, giù, destra, si¬ 
nistra, e per ognuno si deve segnala¬ 
re se con o senza tracciamento (cioè 
se il quadretto in questione fa parte 
o no della forma stilizzata). 
Attenzione perché non si può anda¬ 
re in diagonale e, altra regola molto 
importante, mai usare per due o più 
volte di seguito la funzione Su senza 
tracciare. 

La prossima operazione richiesta 
per raggiungere la sospirata visione 
del movimento dell’immagine pre¬ 
scelta è la conversione, dell’insieme 
dei codici binari dei simboli appena 
raccolti, in numeri decimali oesade- 
cimali e si tratta della fase più delica¬ 


ta perché una minima distrazione 
può costare tutto il lavoro fin qui 
svolto, ma non spaventatevi, non 
dovrete lasciare gli occhi su delle 
interminabili tavole di conversione 
purché abbiate la pazienza di co¬ 
piarvi il listato 1. 

Questo, libero adattamento del pro¬ 
gramma pubblicato a pag. 227 del 
libro Apple li guida all’uso, del 
Gruppo Ed. Jackson, oltre a correg¬ 
gere alcune sviste del listato appena 
menzionato, ne permettono un uti¬ 
lizzo più semplice e chiaro, come si 
può facilmente desumere dalle linee 
che riportano il menù. 

L’inserimento dei dati avviene per 
GET e non più tramite INPUT, il 
che velocizza l’operazione, ma que¬ 
sta non presenta particolari rischi 
perché la visualizzazione è gestita 
dal computer (linee 330-430) che per 
ogni ordine trascrive la funzione 


completa e non il solo tasto premu¬ 
to. 

Chi non avesse l’uso delle minuscole 
può adattare il programma cam¬ 
biando opportunamente i valori di 
K alle linee 370-400 con i codici 
ASCII dei rispettivi CTRL. I tasti 
usati, a proposito, sono: I-i per Su, 
J-j per Sinistra, L-1 per Destra, M-m 
per Giù, le maiuscole con traccia¬ 
mento, le minuscole senza. 

Il programma permette, inoltre, una 
visualizzazione ripetuta sia dei dati 
immessi, per un eventuale controllo, 
che delle conversioni in esadecimale 
e decimale. Lo scroll di questi dati, 
nel caso di eccessiva lunghezza, è 
gestito dal computer che ne presenta 
quindici alla volta (linee 195 e 540) 
attendendo, per continuare, la pres¬ 
sione di un tasto. 

L’aggiunta, a fianco della esadeci¬ 
male, della conversione in valori de- 


220 

IF HX 

> 9 

THEN HX * 

HX + 7 

230 

IF LX 

> 9 

THEN LX = 

LX + 7 

240 

HTAB (5 - 

LEN < STR* (V))>: PRINT 

Vi' 

HTAB 16J PRINT CHR* 

< HX ♦ 176 


)j CHR* <LX ♦ 176); 1 

HTAB <30 - LE 

N < 

STR* <Vl<V))))s PRINT 

VI <V> 

245 

V1(V> = 

0 



250 

NEXT 




253 

B = 0 




255 

Q = 0 : 

POKE 

- 16368, 

10 

260 

PRINT 

: PRINT "Per continuare premi 

un 

tasto " 

ii GET A*i GOTO 20 

270 

PRINT 

"IJLM iJ1m 

1 

280 

PRINT 

“VETTORE “|V + 

1 " "J 

290 

POKE 

- 16368,10 


300 

IF PEEK < 

- 16384) 

< 128 THEN 300 

310 

K - PEEK < 

- 16384) 


320 

M « ? 




330 

. il 

IF K = 

201 

THEN M * 

4iVE*<V) = “SU 

T 

340 

i M 

IF K = 

204 

THEN M - 

5 :VE*<V) = "DES 

T 

350 

i II 

IF K » 

205 

THEN M = 

6 tVE*(V) = “GIU 

T " 

360 

IF K = 

202 

THEN M » 

7 :VE*(V) = “SIN 


«■“ 


370 

— ■ 

IF K 

= 233 THEN M - 0:VE*<V) 

= 

“SU 

380 

IF K 

= 236 THEN M = 1:VE*<V) 

S 

“DES 

390 

IF K 

= 237 THEN M » 2«VE*<V) 

- 

“GIU 

400 

IF K 

- 234 THEN M « 3:VE*(V) 

- 

“SIN 

410 

IF K 

- 197 OR K - 229 THEN M 

« 

- 1 

iM* 

■ “E"jVE*(I > - “FINE.” 



420 

IF M 

= 9 THEN 290 



425 

IF M 

= - 1 THEN SI ( I ) = 0 



430 

PRINT 

VE*<V) 



440 

RETURN 



450 

HOME 

1 END 



500 

HOME 




510 

PRINT 

* N. Vettore* 



520 

PRINT 

I POKE 34,2 



530 

FOR T 

- 0 TO I 



540 

IF <T 

/ 15) - INT <T / 15) THEN G 

ET A* 




550 

PRINT 

T|i HTAB 101 PRINT VE*(T) 


560 

NEXT 




570 

POKE 

- 16368,10 



580 

PRINT 

j PRINT "Per continuare 

prem ì 

un 

tasto 

" 5 s GET A* » GOTO 20 
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cimali dei valori binari dei vettori 
grafici non è stata inserita a caso nel 
programma, ma ci introduce alla 
prossima fase, forse la più oscura, 
che riguarda l’inserimento, della ta¬ 
vola appena ottenuta, in un pro¬ 
gramma di movimento. 

Per poter essere adeguatamente 
sfruttata, la lista di numeri che ab¬ 
biamo appena trovato con l’ausilio 
del programma riportato nel listato 
N. 1 deve essere allocata in una qual¬ 
che zona della memoria RAM, e per 
far questo abbiamo due possibilità: 
la prima prevede il richiamo del mo¬ 
nitor battendo CALL-151 e l’inseri¬ 
mento, nella zona prescelta, dei va¬ 
lori esadecimali appena ottenuti, 
che dovranno essere registrati su 
dischetto con un BSAyE e quindi 
richiamati con un BLOAD, la se¬ 
conda richiede l’uso dell’istruzione 
POKE che, direttamente dal pro¬ 
gramma interessato all’utilizzo della 
figura, carica in memoria i valori 
decimali. La prima opzione è sen¬ 
z’altro quella stilisticamente più 
“professionale”, ma non deve essere 
sempre così sicura. Se, da una parte, 
nell’utilizzare il monitor c’è il van¬ 
taggio di poter richiamare in pro¬ 
grammi diversi la stessa e complessa 
figura senza doverla riscrivere ogni 
volta, dall’altra esiste il problema 
della Directory che deve sempre pre¬ 
cedere la tavola delle forme e che 
contiene i (dati riguardanti il numero 
delle figure e il byte di inizio di ogni 
figura (cioè la distanza del primo 
byte dall’inizio della directory) che è 
chiamato puntatore e il cui valore è 
suddiviso in due byte. Nella compi¬ 
lazione della directory il byte di or¬ 
dine basso deve sempre precedere 
quello di ordine alto (a chiarimento 
vedere figura 1). 

E proprio sul ruolo di questi pun¬ 
tatori che si gioca la scelta sull’uso 
del monitor o delle POKE per l’inse¬ 
rimento dei dati della tavola delle 
forme. Se la prima possibilità è for¬ 
malmente la più corretta, presenta 
però lo svantaggio di non essere mo¬ 
dificabile, cioè di non permettere, a 
meno di una illuminata lungimiran- 


Byte 

Esa. 

Dee. 

Descrizione 

0 

02 

02 

Numero di figure nella tavola 

1 

00 

00 

Byte mai usato 

2 

08 

8 

Byte basso puntatore figura 1 

3 

00 

0 

Byte alto puntatore figura 1 

4 

OC 

12 

Byte basso puntatore figura 2 

5 

00 

0 

Bvte alto puntatore figura 2 

6 

00 

0 

Byte basso puntatore futura figura 3 

7 

00 

0 

Byte alto puntatore futura figura 3 

Fine Directory 

8 

Al 

161 

Inizio figura 1 

9 

5C 

92 

IO 

09 

9 


II 

00 

0 

Fine figura 1 

12 

Bl 

177 

Inizio figura 2 

13 

65 

101 


14 

3A 

58 


15 

00 

0 

Fine figura 2 


Figura 1. Esempio di organizzazione di una tavola delle forme comprendente 
due brevi figure e con lo spazio, nella Directory, per il futuro inserimento di una 
terza. Per le differenze nell'uso dei valori esadecimali e decimali si rimanda 
all'articolo. 


za da parte del programmatore, l’in¬ 
serimento, in tempi successivi, di al¬ 
tre figure. Questo è invece facilissi¬ 
mo se si fa uso delle POKE che, per 
contro, richiedono la trascrizione 
dei dati in ogni programma. 
L’utilizzo di un metodo a danno del¬ 
l’altro deve quindi considerare la 
lunghezza dei dati egli eventuali svi¬ 
luppi futuri che, in ogni caso, nell’u¬ 
so del monitor possono essere pre¬ 
venuti inserendo nella directory dei 
byte vuoti (vedi figura 1). 


The Race 

Ecco un esempio di quanto appe¬ 
na detto, una vera e propria corsa di 
cavalli con tanto di scommesse, 
quotazioni e immancabile gara tra 
sei cavalli e relativi cavalieri, il tutto 
ad una velocità degna dei migliori 
videogiochi pur essendo il program¬ 
ma scritto completamente in BA¬ 
SIC. 

In questa occasione abbiamo optato 
sulla seconda opzione summenzio¬ 
nata e all’inizio del listato 2 trovia¬ 
mo il ciclo che dà forma alia figura 
del cavallo prendendo gli ordini ne¬ 
cessari dai DATA delle linee da 80a 


140, quindi si ha una prima presen¬ 
tazione del disegno ingrandito.3 vol¬ 
te. 

A questo punto si deve informare il 
computer sul numero e nome delle 
persone che intendono partecipare 
alla prova c ultimata questa fase si 
passa al gioco. 

Ogni giocatore deve fare le sue pun¬ 
tate su quotazioni che vengono scel¬ 
te a caso di volta in volta e con l’uni¬ 
ca limitazione di non puntare più di 
249 dollari su un singolo cavallo, 
oltre, naturalmente, a non spendere 
più di quanto si possiede. 

Quando tutti hanno effettuato le 
loro giocate si arriva alla fase più 
appassionante, anche per il non in¬ 
differente effetto grafico, equi come 
non mai è opportuno richiamare il 
discorso iniziale suH’importanza di 
saper usufruire di tutte le possibilità 
offerte dalla macchina che si sta 
usando. Basta veder una sola corsa 
per capire come il discorso sulla va¬ 
lidità o meno di un computer non sia 
legato solo alle capacità del proces¬ 
sore, ma anche al grado di utilizzo 
dello stesso. Tutto questo per dire 
che se l’impegnarsi nella compren¬ 
sione dell’argomento fin qui trattato 
può richiedere un certo sforzo, il 
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Listato 2. Questo programma simula 
una corsa di cavalli. 

5 SCALE- 1 
10 HOME 

20 VTAB 111 HTAB 17i FLASH r PR1NT " CAV 

ALLI’s NORMAL 

40 POKE 232,01 POKE 233,3 

50 FOR X - 768 TO 768 + 140 

60 READ Yi POKE X,Y 

70 NEXT 

80 DATA 01,00,04,00,118,36,36,44,45,44, 
45 44 13 44 

85’ DATA’45,53,182,45,45,45,13,36,36,39 
90 DATA 28,100,44,53,174,62,77,44,252,2 
8 

DATA 36,12,12,12,252,252,22,191,191 , 


DATA 23,183,21,53,62,63,45,77,62,54 
DATA 54,213,27,216,27,216,3,24,24,2 

DATA 181,55,54,30,30,30,246,50,54,6 

DATA 100,36,108,12,108,108,12,12,54 

DATA 46,182,149,45,56,56,36,36,103, 

DATA 12,12,46,45,109,22,21,53,45,46 
DATA 150,10,45,248,36,36,12,36,60,2 

DATA 26,231,12,44,5,56,100,100,12,1 


95 
23 
100 
105 
3 

110 
1 

115 
,54 
120 
12 
125 
130 
14 
135 
2 

140 DATA 36,21,21 t 13,44,38,28,28,28,28, 
228,62,156,62,31,6,0,0 

142 H6R2 1 SCALE- 3 

143 DRAW 1 AT 80,70 

144 FOR T » I TO 60001 NEXT 1 SCALE- 1 

145 TEXT 
150 C* - " 

170 RI* = ’-•-1- 1 - 1 -•“ 

-1-« 

180 R2* - ■I I I I I • 1 " 

190 VA*<1> = "3/2":VA*(2> = "2/1":VA*<3) 
= *5/2":VA*(4) = "3/l":VA*(5> = " 

7/2":VA*< 6) - “4/1* 

195 VA(1) - 1.5■VA < 2 > = 2:VA(3> = 2.5:VA 
(4) = 3 1 VA< 5) = 3.5 1 VA (6) - 4 
200 HOME 

210 INPUT "In quanti giochiamo ? (max.7 
) " ; Gl 

220 IF Gl < 1 OR Gl >7 THEN 200 

230 PRINT 1 FOR T - I TO Gl 

240 PRINT : PRINT "Nome del giocatore N 

."Tj: INPUT • *jGI*(T) 

250 IF LEN <GI*(T>) > 11 THEN PRINT " 
NOME TROPPO LUNGO. Max.11 lettere. 

"1 GOTO 240 
260 NEXT 

270 PRINT 1 PRINT "A questa partita gio 
cheranno 1 " 

280 FOR T - 1 TO Gl 1 PRINT GI*(T>: NEXT 
290 PRINT 1 PRINT "VA tutto bene ? (S/N 
> “1 


300 GET A *1 IF A* - “N" THEN 200 

310 IF A* < > "S" THEN 300 

320 PO -7+ Gl #2: IF PO > 19 THEN PO 

- 19 

330 FOR T « 1 TO 7:S0(T> = 1000: NEXT 

400 FOR T = 1 TO 6 

410 CA - INT ( RND (1> * 6 > ♦ 1 

420 QU*(T) - VA*( CA ) 

430 QU(T> = VA(CA) 

440 NEXT 
500 HOME 
510 PRINT RI*; 

520 PRINT " Cavallo I 1 I 2 I 3 I 4 I 
5 16 1" 

530 PRINT RI♦| 

540 PRINT “Quotazioni I“; : FOR T = 1 TO 
6 : PRINT QU*(T>"I * fi NEXT 
550 PRINT "<**>"| 

560 PRINT RI*| 

570 FOR T - 1 TO Gl 

580 PRINT 6 I*(T>; 1 HTAB 12: PRINT R2*;s 
HTAB (41 - LEN ( STR* (SO(T>>>>: 

PRINT SO(T> j 
590 PRINT RI *1 
600 NEXT 

610 FOR G = 1 TO Gl 

615 IF SO(G> < =0 THEN 780 

620 VTAB PO: HTAB li CALL - 868 

630 VTAB PO 1 PRINT "Tocca a "GI*(G> 

648 POKE 34,PO ♦ 1: CALL - 198 
650 FOR C - 1 TO 6 

660 VTAB PO + 2i HTAB li CALL - 868 
670 VTAB PO + 2i PRINT “Puntata per il 
cavai lo N.*Cj 1 INPUT “ “;SC*(C,G> 

675 IF VAL (SC*(C,G>> > 249 THEN 660 
680 NEXT C 

690 SO - 0 1 FOR T = 1 TO 6 :SO = SO + VA 


L (SC*(T,G ))1 NEXT 

700 IF SO > SO(G> THEN PRINT GI*(G>" 
ai scommesso troppo!!!”i FOR T = 1 
TO 2000: NEXT 1 GOTO 650 
710 SO(G> - SO(G> - SO 
720 POKE 34,0 
730 VTAB 4 ♦ 2 » G 
740 FOR T - 16 TO 36 STEP 4 
750 HTAB (T - LEN (SC*(T / 4 - 
PRINT SC*(T / 4 - 3,G >1 
760 NEXT 

765 HTAB 37: PRINT C*; 

770 HTAB (41 - LEN ( STR* (SO(G>>>): 
RINT SO(G> f 
780 NEXT G 


3,G))) : 


790 VTAB PO ♦ 4: PRINT “I giochi sono * 
atti.”: FOR T - 1 TO 2000: NEXT 1 HTAB 
22 1 PRINT “Ecco la corsa." 

808 FOR T = 1 TO 3000: NEXT 

810 HOME 

820 HGR2 

830 HCOLOR- 1 

840 FOR T - 29 TO 174 STEP 29 
850 HPLOT 1,T TO 279,T 
860 NEXT 
870 HCOLOR- 6 
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non farlo significa perdere l’oppor¬ 
tunità di riuscire a raggiungere la 
capacità di sfruttare completamente 
il piccolo gioiello in nostro possesso, 
con le conseguenze del caso. 

Per mantenere una certa incertez¬ 
za sul risultato si è legato lo sposta¬ 
mento dei disegni ad una decisione 
casuale del computer, linea 1000, 
anche se il differente peso delle quo¬ 
tazioni è in parte mantenuto dalla 
lunghezza di ogni singolo sposta¬ 
mento, linea 900, maggiore in rap¬ 
porto a superiori possibilità di vitto¬ 
ria presupposte. 

Terminata la corsa si viene informa¬ 
ti circa il numero del cavallo vincito¬ 
re e di seguito viene riportata la quo¬ 
tazione dello stesso per quella prova 
con le eventuali vincite di qualche 
concorrente, quindi si passa ad una 
nuova gara con nuove quotazioni. 


Joystick e interattività 

Il prossimo argomento è senz’al¬ 
tro meno complicato da compren¬ 
dere, ma non per questo con minori 
possibilità di utilizzo. L’Apple II ha 
una precisa funzione per l’uso di 
paddle: PDL(espr.), dove espr può 
assumere i valori da 0 a 3. In pratica 


ciò permette la gestione di 4 control¬ 
lori di giochi. Se usate un paddle, il 
valore ritornato dall’uso della fun¬ 
zione è compreso tra 0 e 255, mentre 
nel caso di impiego di un joystick la 
condizione è un po’ più complessa, 
ma, come vedremo, non troppo. 
Prima, però, un accenno sul valore 
di un simile intervento. 
Nell’impostare i programmi, a volte 
non si tiene debitamente conto del 
bisogno umano di sviluppare i rap¬ 
porti relazionali nel modo più sem¬ 
plice e chiaro. 

Sull’onda dell’importanza di questo 
aspetto si è giunti all’attuale dilaga¬ 
re di mouse e affini e i joystick, pa¬ 
renti, in parte poveri, di questi, pos¬ 
sono, in impieghi non al limite, far¬ 
ne convenientemente le veci. Inoltre 
l’Applesoft ci permette di utilizzar¬ 
ne due e questo è molto importante, 
come vedremo, nei giochi di azione 
che prevedono la partecipazione di 
due giocatori dove l’uso della tastie¬ 
ra, pur permettendone lo svolgi¬ 
mento, ne limita le possibilità per la 
particolare gestione della stessa. 

Tornando alla funzione PDL(x), 
abbiamo già detto sul suo compor¬ 
tamento durante l’impiego di un 


paddle. La prima differenza coi joy¬ 
stick è che uno di questi impiega due 
delle quattro opzioni a disposizione, 
la seconda è che i valori ottenibili 
sono fissi. Per un quadro riepilogati¬ 
vo si veda la figura 2, mentre per il 
Iato pratico si giri il breve program¬ 
ma del listato 3 che ci permette di 
visualizzare quanto appena detto. 
In genere i joystick permettono otto 
movimenti cioè, oltre a: su, giù, de¬ 
stra e sinistra, anche le diagonali. Il 
programma appena citato fa luce 
anche su questo aspetto; in definiti¬ 
va si ottengono i valori dei due punti 
cardinali interessati. Quando nessu¬ 
na direzione è scelta, i valori riporta¬ 
ti dalle funzioni PDL si mantengono 
intorno a valori centrali del periodo 
0-255 pur con alcune minime varia¬ 
zioni ininfluenti, però, sull’aspetto 
analizzato. 

A questo punto introdurre le nozio¬ 
ni apprese nei programmi più dispa¬ 
rati non dovrebbe presentare insor¬ 
montabili difficoltà. 

Trappola 

Per tradurre in pratica quanto fin 
qui detto, ecco una versione di uno 


Seguilo listalo 2. 

880 HPLOT 260,1 TO 260,174 
885 FO - 0 

890 HCOLOR- 3i FOR K - 1 TO 6 

900 FO<K> » 25 - QUC K) # 4 - INT < RND 

<1> # 4> 

910 Y<K> - 18 + 29 « <K - 1>iX<K> * 1 
920 DRAW 1 AT X<K>,Y<K) 

930 NEXT 

1000 K - INT < RND <1> « 6) ♦ 1 
1010 FOR T * 1 TO 20: NEXT 
1020 XDRAW 1 AT X<K>,Y<K) 

1030 W = PEEK < - 16336) 

1040 X<K) » X<K> + FO<K> 

1050 DRAW 1 AT X< K),Y<K> 

1060 IF X(K) > 220 THEN 1100 

1070 FOR R - 1 TO 3 :W = PEEK < - 16336 

>1 NEXT 

1090 GOTO 1000 

1100 VTAB 21I PRINT "Ha vinto il cavali 
o N."K 

1110 FOR T - 1 TO 4000! NEXT 
1120 TEXT s HOME 


1130 PRINT * Ha vinto il cavallo N.“K 

1140 B* - "-“ 

1150 D* ■ ' I-1-1-1-1 “ 

1160 PRINT l PRINT ■-" 

1170 PRINT “I Quotaiione I"QU*(K>“I“: PR 
INT B* 

1188 PRINT ■I Puntata di I <+ > I<♦*>I“ 

1190 FOR T <■ 1 TO Gl s PRINT D* 

1200 S0<T> - S0(T> ♦ INT ( VAL <SC*<K,T 
)> « QU<K)) 

1210 PRINT * I "0I$<T> |■ HTAB 13: PRINT " 
I -y < HTAB <17 - LEN <SC*<K,T>>): PRINT 

SC$(K T)“I“; 

1220 HTAB'<21 - LEN < STR* ( VAL <SC*< 
K,T>> a QIKK))))! PRINT VAL <SC*< 

K,T)> * QU<K)* I“| ! HTAB <26 - LEN 
< STR* <S0<T))))! PRINT SO<T)"l" 

1230 NEXT 
1240 PRINT B* 

1250 PRINT i PRINT ! PRINT "Per un'altr 
a corsa premere un tasto “j 
1260 POKE - 16368,12 
1270 GET A*i GOTO 400 
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Listato 3. //programma "Joystick e interattività”. 

10 HOME 

20 PRINT ■PDL PDL PDL PDL" 

30 PRINT "(0) (1) < 2) (3)* 

40 POKE 34,2 
50 HOME 

60 PRINT PDL (0);i HTAB ?! PRINT PDL 
(1)M HTAB 17 : PRINT PDL (2>j! HTAB 
25! PRINT PDL <3> 

70 FOR T ■= 1 TO 200! NEXT 
100 GOTO 50 


Listato 4. Questo gioco traduce quanto detto 
in precedenza. 

TRAPPOLA 

10 HOME 

20 VTAB 10! HTAB 17i FLASH i PRINT ‘TRA 
PPOLA”I NORMAL 
30 FOR T - 1 TO 5000! NEXT 
40 TEXT ! HOME 

50 VTAB 3i INPUT "Nome giocatore di DES 
TRA " i GD* 

40 VTAB 5i INPUT "Nome giocatore di SIN 
ISTRA "j GS* 

70 VTAB 8! PRINT "A questa partita gioc 
heranno !" 

80 VTAB 10! PRINT GD*i PRINT GS* 

90 VTAB 13: PRINT "Uà tutto bene ? (S/N 
> "I 

100 GET A*i IF A* - "N“ THEN 40 


110 IF A* < > "S" THEN 100 

120 PRINT ! PRINT i INPUT "Quanti ruond 
deve durare la partita? ";NP 
130 PRINT ! PRINT "A che velocita' vole 
te giocare ?" 

140 PRINT i PRINT "1- Veloce" 

150 PRINT "2- Media" 

160 PRINT "3- Lenta" 

170 PRINT i INPUT “Dimmi il numero " jVE 
180 IF VE < 1 OR VE > 3 THEN 170 
190 PRINT i PRINT “Premere un tasto per 
inizi are 1 a gara "| 

200 GET A* 

210 PD - 0iPS = 0 
220 NU = 0 
230 HOME 
300 GR 

310 COLOR= 13 

320 FOR X - 0 TO 3?!Y = 0! PLOT X,YiY - 
3?! PLOT X,Y! NEXT 

330 FOR Y = 0 TO 3?iX » 0! PLOT X,YiX * 
3?! PLOT X,Yi NEXT 

340 SI* = GS* + " - " ♦ GD* + " " ♦ ST 

R* (PS) + ♦ STR* (PD) 

350 VTAB 21 ! HTAB ((44 - LEN (SI*)) / 
2)! PRINT SI* 

360 IF NU = NP THEN 800 
370 DD = 4:DS - 4 
380 VTAB 21I PRINT NU ♦ l“su“NP 
390 XD - 30iYD » 20iXS * 10iYS = 20!CD = 
6 lCS - ? 

400 COLOR- CDi PLOT XD,YD 
410 COLOR- CSi PLOT XS,YS 
420 IF PDL (0) - 255 THEN DD = 1 ! GOTO 
460 


Joystick 2 

Posizione 

Joystick 1 

PDL(3) 0 

Su 

PDL(I) 0 

PDL(3) 255 

Giù 

PDL(I) 255 

Pt)L(2) 255 

Destra 

PDL(0) 255 

PDL(2) 0 

Sinistra 

PDI.(O) 0 


Figura 2. Tabella riassuntiva dei va¬ 
lori ottenibili utilizzando la funzione 
PDL per la gestione dei joystick. 

dei più classici giochi per due gioca¬ 
tori. 

Ogni concorrente deve manovrare 
un punto che non può stare fermo e 
che lascia dietro di sé una vistosa 
traccia. La gara termina quando 
uno dei due punti tocca o un traccia¬ 
to o il bordo del campo e il vincitore 
è, naturalmente, chi ha resistito di 
più. 


L’uso dei joystick ha permesso di 
superare quello che era il punto do¬ 
lente delle versioni giocate con la 
tastiera e, cioè, il fatto che, essendo 
il computer in grado di leggere un 
solo tasto alla volta, la partita pote¬ 
va essere facilmente “truccata”, an¬ 
che da gesti del tutto involontari, 
tramite la pressione continua di un 
tasto. 

Ora, invece, ogni concorrente ha la 
possibilità di manovrare liberamen¬ 
te il proprio punto senza interferire, 
o poter interferire, sulla tattica del¬ 
l’avversario. Il programma risulta 
quindi più giocabile ed avvincente, 
anche perché sono previste varie op¬ 
zioni che garantiscono sia vari livelli 
di gioco che una chiara e aggiornata 
informazione sugli avvenimenti in 
corso. 

Dopo l’inserimento e il controllo dei 


nomi degli sfidanti si deve decidere 
su quanti round si deciderà la gara, 
quindi c la volta della velocità del 
gioco. 

Inizia la partita. Disegnato il campo 
(lince 320-330), visualizzato il pun¬ 
teggio (340-350) e il numero del 
round che si sta giocando (380), i 
simboli iniziano a muoversi fino a 
quando uno dei due toccherà il bor¬ 
do del campo o uno dei percorsi. 
All’inizio il movimento di entrambi 
i giocatori è programmato verso il 
basso (370), ma ogni cambiamento 
in tal senso non presenta alcun pro¬ 
blema. La linea 390 definisce le co¬ 
ordinate di partenza e i colori dei 
giocatori. 

Le linee da 420 a 570 sono, però, 
quelle che maggiormente ci interes¬ 
sano per l’argomento trattato in 
queste pagine. 
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Seguito listato 4. 



430 

60 

IF 

PDL 

(0) « 0 THEN DD = 2: GOTO 4 

448 

60 

IF 

PDL 

<1) “ 0 THEN DD = 3j GOTO 4 

450 

IF 

PDL 

(1) = 255 THEN DD ■ 4 

460 

IF 

PDL 

(2) = 255 THEN DS = 1 : GOTO 

500 





470 

IF 

PDL 

(2) “ 0 THEN DS = 2: GOTO 5 

00 





480 

IF 

PDL 

(3) = 0 THEN DS = 3: GOTO 5 

00 





490 

IF 

PDL 

(3) - 255 THEN DS = 4 

500 

0 

510 

0 

520 

0 

530 

IF 

DD - 

1 

THEN XD = XD + 1 : GOTO 54 

IF 

DD ■= 

2 

THEN XD = XD - 1 : GOTO 54 

IF 

DD - 

3 

THEN YD = YD - 1 : GOTO 54 

IF 

DD =■ 

4 

THEN YD - YD + 1 

540 

IF 

DS = 

1 

THEN XS ~ XS ♦ 1 : GOTO 60 

0 




• 

550 

0 

560 

0 

570 

IF 

DS - 

2 

THEN XS => XS - 1 : GOTO 60 

IF 

DS - 

3 

THEN YS = YS - 1 : GOTO 60 

IF 

DS * 

4 

THEN YS = YS + 1 

600 

IF 

SCRN< 

XD,YD) < > 0 OR SCRN( X 

S, YS) 

< 

> 0 

THEN CALL - 198: GOTO 


700 




610 

FOR 

T - 

1 

TO 50 * VE * 2: NEXT 

620 

FOR 

T » 

I 

TO 3:A » PEEK < - 16336) 

: NEXT 





650 GOTO 400 

700 IF SCRN< XD,YD> = 0 OR SCRN< XS,Y 
S) « 0 THEN 740 

710 </TAB 23» PRINT “Il round e' -finito 
in parità'." 

720 PD = PD ♦ 1:PS = PS ♦ 1 
730 GOTO 760 

740 A* - GD*:PD =■ PD ♦ 1: IF SCRN< XS,Y 
S) * 0 THEN A* - GS*:PD = PD - 1:P 
S - PS + 1 

750 VTAB 23i PRINT "Il round e' stato v 
into da “A* 

760 NU - NU + 1 

770 FOR T - 1 TO 30001 NEXT s IF NU = N 
P THEN HOME : GOTO 340 

780 PRINT “Prami un tasto per il prossi 
mo round. "; 

790 GET A*i HOME ! GOTO 300 
800 A* = GD*: IF PS > PD THEN A* = GS* 
805 IF PD - PS THEN VTAB 23: PRINT “La 
partita e' terminata in parità'." 

: GOTO 820 

810 VTAB 23: PRINT “La partita e' stata 
vinta da “; : FLASH : PRINT A*: NORMAL 

820 FOR T - 1 TO 3000: NEXT : VTAB 24: 
HTAB 15: PRINT “Ancora ? <S/N> “; 

830 GET A*: IF A* = “N* THEN TEXT : HO 
ME : END 

840 IF A* < > “S“ THEN 830 

850 PRINT : PRINT "Giocate alla stesse 

condizioni ? (S/N) 

860 GET A*: IF A* = ”N“ THEN 40 
870 IF A* < > “S" THEN 860 
880 GOTO 190 



La vista di ben 16 IF THEN conse¬ 
cutivi farà inorridire più di un letto¬ 
re, e a ragione visto che il tutto può 
essere formulato in una forma più 
concisa ed elegante, ma si tenga con¬ 
to dell’intenzione dichiarata di pre¬ 
sentare un esempio il più chiaro pos¬ 
sibile anche a dei neofiti. Per questi, 
DD e DS sono le variabili che leggo¬ 
no la direzione dei joystick rispetti¬ 
va mente di destra e di sinistra e la 
tramutano nell’opportuno movi¬ 
mento del punto sul video. 

La linea 600 controlla che le nuove 
posizioni non siano già occupate, 
nel qual casosi va alla routine di fine 
round, quindi, dopo un rallenta¬ 
mento legato alla velocità scelta 
(610) e ad un suono (620), si passa 
alla mossa successiva. 

Al termine di ogni round il compu¬ 
ter dichiara il vincitore dello stesso, 
o la parità se entrambi hanno tocca¬ 


to contemporaneamente, ed aggior¬ 
na la situazione del punteggio per 
passare, poi, ad una nuova fase della 
partita a meno che non si sia rag¬ 
giunto il numero di round predefini¬ 
to, nel qual caso si ha la proclama¬ 
zione del vincitore o di un eventuale 
salomonico pareggio. 

La considerazione che ha spinto il 
presente lavoro è stata il bisogno di 
approfondire la conoscenza di alcu¬ 
ni aspetti della programmazione la 
cui padronanza non è sempre suffi¬ 
cientemente sviluppata a svantaggio 
dell’uso globale della macchina pos¬ 
seduta. A fianco dei concetti sono 
stati presentati dei semplici pro¬ 
grammi quale esempio pratico delle 
opportunità offerte dalle tecniche 
discusse. Ad ognuno, ora, l’appro¬ 
fondimento secondo i canoni perso¬ 
nali c lo sviluppo di ulteriori contri¬ 
buti in questo senso. ■ 


I 

I 
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1 orneo di bridge 



Elaborate velocemente 

le classifiche 

con il vostro Apple II 


di Vincenzo Delle Cave 


N ella puntata precedente 
era stato presentato il pro¬ 
gramma Bridge-Memoriz- 
za che curava l’acquisizione degli 
score e forniva come output due file: 
File-Torneo e File-Dati, contenenti 
rispettivamente gli score del torneo 


e i suoi dati caratteristici (numero 
turni di giro, numero mani giocate e 
numero di tavoli). Presentiamo ora, 
in quest’ultima parte, il programma 
Bridge-Conti (vedi listato I ) che ela¬ 
bora i dati contenuti nel File- 
Torneo e fornisce le due classifiche 
separate (N-S e E-O) e due prospetti 
rappresentativi di tutte le mani gio¬ 
cate. 

Prima di spiegare dettagliatamente 
le caratteristiche del programma oc¬ 
corre aprire una parentesi per capire 
come vengono assegnati i punti ad 
ogni coppia in funzione del risultato 
conseguito nella singola mano. 
Converrà, come al solito, fornire un 
esempio. Consideriamo il seguente 
score: 


5 

+420 

105 

6 

+420 

103 

7 

-100 

101 

8 

-50 

112 

9 

-50 

110 

10 

+140 

108 

II 

+170 

106 

12 

-300 

104 

13 

+ 140 

102 

1 

+170 

113 

2 

+120 

111 


Il punteggio max. (Top) è calcolato 
in questo modo: Top = 2(x- l)dove 
x rappresenta il numero di turni di 
gioco, cioè il numero di volte in cui è 
stata giocata la singola mano. 

Il punteggio minimo assegnato (ze¬ 
ro) è proprio 0. Nel nostro esempio 


Listato 1. // programma Bridge-Conti. 


10 

D* = CHR* (4) 


12 

DIM PPX<25,120) 


13 

DIM PAX(41,3): REM 

MATRICE 


DEI PUNTEGGI E DELLE COPPIE 
DA INSERIRE 

18 

DIM MNSX(41,41) 


19 

DIM ME0X(41,41) 


20 

DIM AX( 41,2): REM 

EI PUNTEGGI N-S 

MATRICE D 

22 

DIM CX( 41 ,2) : REM 

EI PUNTEGGI E-0 

MATRICE D 

25 

DIM UHRX(50) 


30 

22* = "S" 


31 

W = 0 


35 

HOME : INVERSE : PRI 

NT "ATTEN 


DERE PER I CONTI": 

: PRINT : PRINT 

NORMAL : 1 

40 

GOSUB 8500 


50 

GOSUB 1977 


55 

REM 


60 

GOSUB 7000 


70 

GOSUB 1697 


30 

REM 


85 

X = YY:LL = 1 


90 

FOR I = 1 TO X 


100 

PAX(I,1) = MNSX(1,0) 
= MNSX(I,N + 1) 

:PAX(I,2) 

1 10 

NEXT I 


120 

GOSUB 7050 



130 PRINT : PRINT D*;"PR#1" 

132 PRINT : PRINT "CLASSI F 

ICA N-S": PRINT : PRINT 
: PRINT : PRINT 

133 GOSUB 140 

134 FOR I = 1 TO X 

135 PAX(1,1) = MEOX(1,0):PAX(I, 2 ) 

= MEOX<I,N + 1) 

136 NEXT I :LL = 1: GOSUB 7050 

137 PRINT : PRINT : PRINT "C L A 

S S I F I C A E-0": PRINT 
: PRINT : PRINT : PRINT 

138 GOSUB 140 

139 PRINT : PRINT D*;"PR#0": GOTO 
200 

140 FOR I = 1 TO X 

145 PRINT PAXCI , 1 > ; : PRINT SPC( 

5 - LEN ( STR* (PAX(I,1)) )) 

; : PRINT PAX<I,2) 

150 NEXT I 
160 RETURN 

200 PRINT : PRINT D*“RUNBRIDGE-M 
EMORIZZA" 

1697 POKE 1273,127 

1707 PRINT : PRINT D*;"PR#1" 

1717 PRINT CHR* <?>;"132N" 

1727 PRINT CHR* (27); CHR* (20) 

1737 PRINT " ": PRINT “ ": PRINT 
" "s PRINT " " 

1747 REM STAMPA 

1750 S = N 
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Torneo 
di bridge 


sarà Top = 20 e Zero = 0 (non è 
necessariamente questa la scala usa¬ 
ta, a volte è Top -2 ★ X e Zero = 2). 

Gli altri punteggi si ottengono ca¬ 
lando ogni volta di due punti il Top; 
cosicché nel nostro esempio verrà 
adottata questa scala di valori: 20; 
18; 16; 14; 12; 10; 8; 6; 4; 2; 0; che 
sono usati per assegnare i punti alle 
undici coppie che hanno giocato la 
mano. Tutto ciò c molto semplice se 
le undici coppie ottengono nella 
stessa mano undici punteggi diversi; 
questo è un caso piuttosto raro e 
caratteristico di un torneo poco 
qualificato. Nel nostro esempio le 
coppie N-S 5 c 6 hanno ottenuto il 
punteggio più alto (+ 420); se aves¬ 
sero ottenuto un punteggio diverso 


avremmo assegnato ad una coppia 
20 punti e all’altra 18. Poiché hanno 
ottenuto entrambe lo stesso punteg¬ 
gio ad ognuna spetteranno 19 punti 
(le rispettive coppie E-O avversarie 
otterranno 1 punto ciascuna, e cioè 
il complemento a 20). Il secondo mi¬ 
glior risultato è stato ottenuto dalle 
coppie Ilei che prenderanno 15 
punti ciascuna (16 e 14 se avessero 
ottenuto risultati differenti). Se¬ 
guendo lo stesso criterio per tutte le 
coppie si finisce per assegnare i se¬ 
guenti punteggi alle coppie N-S; 

N-S 

5 19 

6 19 

7 2 


8 

5 

9 

5 

IO 

11 

11 

15 

12 

0 

13 

I 

11 

15 


2 8 

Complementando a 20 i punti otte¬ 
nuti dalle coppie N-S si ottiene per le 
coppie E-O. 


E-O 


105 

1 

103 

1 

101 

18 

112 

15 

no 

15 


1757 FOR I = 0 TO S 

1760 PRINT SPC< 3 - LEN ( STR» 

< MNS/.< 0,1))) )NNSX( 0 , I ) ; 

1777 NEXT I 
177S PRINT " ";"TOT"; 

1787 PRINT " " 

1797 FOR I = 1 TO YY 
1807 PRINT " " 

1817 FOR J = 0 TO S ♦ I 
1820 IF MNSXd.J) = 7777 THEN PRINT 
H 5i GOTO 1845 
1827 PRINT SPC< 3 - LEN ( STR* 
(MNSX<I,J)>))MNSX <I,J); 

1845 IF J = S THEN PRINT " 

1847 NEXT J 

1848 PRINT " " 

1853 NEXT I 

1854 FOR I = 1 TO 25 

1855 PRINT “ ■ 

1857 NEXT 

1867 FOR I = 0 TO S 

1870 PRINT SPC< 3 - LEN < STR* 
<ME0X< 0,I)>))ME0X< 0,1); 

1887 NEXT I 

1890 PRINT " "s"T0T"; 

1897 PRINT " * 

1907 FOR I = 1 TO YY 

1917 PRINT " • 

1927 FOR J = 0 TO S + 1 

1930 IF MEOX(I.J) = 7777 THEN PRINT 
" -"ss GOTO 1955 


1937 

PRINT SPC< 3 - LEN ( STR* 

(ME0X(I,J)> >)ME0X<I,J); 

1955 

IF J = S THEN PRINT " "5 

1957 

NEXT J: PRINT " " 

1958 

NEXT I 

1959 

FOR I = 1 TO 25 

I960 

PRINT B " 

1961 

NEXT 

1966 

PRINT D*;"PRH0" 

1970 

RETURN 

1977 

R1C = X 

1980 

PUNTMED = X - 1 

1981 

XX = X + 5 j 

1982 

NUM = INT (YY / 2) 

1983 

FLAG = YY - INT (YY / 2) * 

2 

1991 

FOR I = 1 TO XX 

1992 

UHR*/.( 1 ) = 0 

1994 

NEXT I 

1997 

REM 

2000 

FOR P = 0 TO YY 

2005 

MNSX(P.O) = P 

2006 

MEOX(P,0) = P + 100 

2007 

NEXT 

2017 

FOR P = 0 TO N 

2027 

MNSX(0,P) = P 

2037 

MEOX(0,P> = P 

2047 

NEXT 

2077 

FOR I = 1 TO YY 

2087 

FOR J = 1 TO N 

2097 

MNSX.d.J) = 7777 
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Jg» Torneo 

_di bridge 


Seguito listato Bridge-Conti. 


74*0 FOR J = I TO I - L + 1 STEP 
- 1 



7470 AX(J,2) = SUM / L 

2107 MEOXCI,J) = 7777 


7480 AX(J,1) = PAX<J,1) 

2117 NEXT : NEXT 


7490 CX(J,2) = SUM / L 

2127 RETURN 


7500 CX<J,1) = PAX < J,3) 

2137 W = W + 1 


7510 NEXT J 

2147 FOR I = 1 TO X 


7520 L = 1 

2167 MNSX<AX( 1,1) ,W) = AX<I,2) 


7530 SUM = VHRXCI + 1) 

2177 MEOX(CX( I,1) - 100,W) = 2 * 


7540 IF I = X GOTO 7430 

<X - 1) - CX<I,2) 


7550 NEXT I 

2187 NEXT I 


7540 IF PAX(X,2) = - 9999 GOTO 

2237 RETURN 


7585 

7000 FOR NB = 1 TO N 


7570 I = X 

7010 FOR I = 1 TO X 


7580 GOTO 7440 

7020 PAX( 1,1) = PPX< I ,NB * 3 - 2) 


7585 FOR AA = I TO I + MM - 1 

7030 PAX< I ,21 = PPXCI.NB * 3 - 1) 


7590 AX<AA,2) = PUNTMED 

7040 PAX(1,3) = PPXCI,NB * 3) 


7400 AX<AA,1) = PAX<AA,1) 

7045 NEXT I 


7410 CX(AA,2) = PUNTMED 

7050 F = 0 


7420 CX<AA,1) = PAX(AA,3) 

7040 FOR I = 1 TO X - 1 


7425 NEXT AA 

7070 IF PAX(1,2) > = PAX-CI + 1, 


742S MM = 0 

2) GOTO 7180 


7430 GOSUB 2137: REM ASSEGNAZ 

7080 T = PAX(1,2) 


IONE PUNTEGGI 

7090 U = PAX<1,1) 


7440 REM SOMMA PUNTEGGI NS 

7100 U = PAX<I,3) 


7755 PRINT 

7110 PAX(1,1)= PAX<I + 1,1) 


7740 NEXT NB 

7120 PAX(1,3) = PAX(1 + 1,3) 


7770 REM ASSEGNA TOTALI 

7130 PAX(1,2) = PAX<I + 1,2) 


7780 FOR I = 1 TO YY 

7140 PAX<I + 1,2) = T 


7781 FOR J = 1 TO N 

7150 PAX(1 + 1,1) = U 


7782 IF MNSX<I,J> = 7777 THEN KR 

71*0 PAX(I + 1,3) = 0 


= 0: GOTO 7784 

7170 F = 1 


7783 KR = MNSX<I,J) 

7180 NEXT I 


7784 IF MEOXCI,J) = 7777 THEN KZ 

7190 IF F = 1 THEN 7050 


= 0: GOTO 7737 

720 0 IF LL = 1 THEN LL = 0 : RETURN 


7785 KZ = MEOXC I , J) 

7300 FOR I = 1 TO X 


7787 SNS = SNS + KR 

7310 IF PAX(1,2) = - 9999 THEN 


7788 SEO = SEO + KZ 

MM = MM + 1 


7739 NEXT J 

7320 NEXT I 


7790 MNSXCI,N + 1) = SNS 

7321 TMR = X * 2 - 2 - MM 


7300 MEOXC1,N + 1) = SEO 

7322 FOR I = 0 TO X - 2 


780 2 SNS = 0 :SEO = 0 

7323 VHRXCI + 1) = TMR -2*1 


7810 NEXT I 

7324 IF DHRXU + 1) < 0 THEN VHR 


7320 RETURN 

X(I + 1) = 0 


8500 REM 

7325 NEXT I 


8501 PRINT : PRINT DV'OPEN DATI" 

7324 FOR I = X TO XX 



7327 VHRX(I) = 0 


8502 PRINT D$"READ DATI" 

7328 NEXT I 


8504 INPUT X: INPUT N: INPUT YY 

7380 SUM = UHRX(l) 


8505 PRINT D*"CLOSE DATI" 

7390 L = 1 


3510 PRINT : PRINT D$;"OPEN TORN 

7400 FOR 1=1 TO X - 1 


EO" ' 

7410 IF PAX(1,2) = -- 9999 THEN 


3520 PRINT 0$; " READ TORNEO" 

7585 


8530 FOR J = 1 TO N * 3 

7420 IF PAX(1,2) < > PAX(I + 1, 


8540 FOR I = 1 TO X 

2) GOTO 7460 


8550 INPUT PPX(I,J) 

7430 SUM = SUM + OHRXU + 1) 


8540 NEXT I : NEXT J 

7440 L = L + 1 


8570 PRINT D*;"CLOSE TORNEO" 

7450 GOTO 7550 


8580 RETURN 
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Torneo 
di bridge 


108 9 

106 5 

104 20 

102 9 

113 5 

111 12 

Uno score può a volte presentare 

delle complicazioni dovute al fatto 
che il direttore del torneo, per sva¬ 
riati motivi, assegna un punteggio 
medio alle due coppie N-S e E-O che 
giocano la mano. In tal caso per 
calcolare la scala dei punteggi si de¬ 
ve calare di 1 il top per ogni mano 
media assegnata e di conseguenza 
aumentare di 1 lo zero. Pertanto, nel 
nostro esempio, la scala di punteggi 
da assegnare per uno score che pre¬ 
veda una mano medià è la seguente: 
19; 17; 15; 13; 11; 9; 7;5;3; l;mentre 
10 è il punteggio da assegnare alla 
mano media (MM). 

Espresso in formule: 

Top = 2'fr(X-l) - N. Mani Medie 
Zero = 0 + N. Mani Medie 
MM = (Top + Zero)/2 
Notare che la somma dei punteggi 
che vengono attribuiti a tutte le cop¬ 
pie è costante, indipendente dallo 
score ed è uguale a: MM ★ X, cioè 
punteggio medio per numero di vol¬ 
te in cui è stata giocata la mano. Nel 
nostro caso sarà 110. 

REMarks 

8500-8580 - Per prima cosa viene 
Ietta dal File-Torneo la matrice 
PP% rappresentativa degli score e 
caricati, dal File-Dati, il numero di 
turni, numero di mani e numero di 
tavoli del torneo. 

1977-2237 - Inizializzazione delle 
matrici MNS% e MEO% rappresen¬ 
tative dei prospetti finali (prima co¬ 
lonna inizializzata al numero della 
coppia e prima riga al numero della 
mano. Le matrici sono riempite con 
dei valori convenzionali (7777) che 
verranno poi convertiti in all’at¬ 
to della stampa se la coppia non ha 
giocato quella mano). 

7000-7820 - È il nucleo del program¬ 
ma. Viene calcolato il punteggio di 


ciascuna coppia dello score. Inizial¬ 
mente è previsto un ordinamento 
decrescente dei punteggi (linee 7010- 
7190), quindi il calcolo delle even¬ 
tuali mani medie (7300-7320) e la 
routine di calcolo dello score (7321- 


7628); infine è prevista l’assegnazio¬ 
ne del" punteggio ottenuto da ogni 
coppia al prospetto finale (2137- 
2237). Per ogni coppia viene calcola¬ 
ta la somma dei punteggi ottenuti e 
memorizzata nell’ultima colonna 


0 12345678 TOT 


1 

9 10 15 10 20 2 

5 

5 

76 

2 

- 10 10 

1 14 18 20 

8 

3 

83 

3 

- - 13 

1 14 14 18 

10 

1 

70 

4 

- - - 

14 16 14 

20 

19 

83 

5 • 

- - - 

CO 

i 

12 

17 

44 

6 ■ 


- - 2 

15 

7 

24 

7 - 



18 

14 

32 

8 - 




10 

10 

9 - 





0 

10 - 





0 

11 18 





18 

12 14 

5 - 



- 

19 

13 9 

5 7 




21 

14 20 

18 10 

2 - - 

- 

- 

50 

15 3 

9 18 

4 12 - 

- 

- 

46 

16 0 

16 18 1 

18 10 8 

- 

- 

70 

17 3 

13 5 

6 0 14 

1 

- 

42 


18 14 13 10 9 2 14 5 14 81 

19 14 2 2 9 4 2 15 10 58 

20 6 9 2 10 7 8 1 10 53 


0 1 2 3 4 5 6 7 8 TOT 

101 11 13 9 - 6 - 0 - 39 

102 - 8 12 4 - 6 - 2 32 

103 6 - 6 16 4 - 8 - 40 

104 - 13 - 4 8 12 - 12 49 

105 11 - 9 - 13 12 5 - 50 

106 - 0 - 14 - 18 19 5 56 

107 0 - 1 - 10 - 2 5 18 


108 

- 

9 

- 

0 


6 

- 

9 

24 

109 

17 

- 

1 

- 

20 

- 

15 

- 

53 

110 

- 

2 

- 

12 

- 

6 

- 

9 

29 

111 

20 

- 

14 

- 

18 

- 

5 

- 

57 

112 

- 

5 

- 

9 

- 

18 

- 

9 

41 

113 

17 

- 

9 

- 

16 

- 

19 

- 

61 

114 

- 

5 

- 

9 

- 

12 

- 

14 

40 

115 

6 

- 

17 

- 

13 

- 

15 

- 

51 

116 

- 

16 

- 

8 

- 

18 

- 

16 

58 

117 

6 


17 

- 

0 

- 

12 

- 

35 

118 

- 

9 

- 

8 

- 

0 

- 

18 

35 

119 1 

L4 

- 

4 

- 

2 


10 

- 

30 

120 

2 

8 

- 

4 

- 

2 

_ 

0 

16 


Figura 1. I prospetti finali di un torneo a 8 mani e 20 coppie. 
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Fiera del Levante, Comufficio e Tecnopolis hanno creato a Bari 

TECNORAMA/UFFICIO 


PERCHÉ É PIÙ REDDITIZIO PORTARE 

I PRODOTTI SUL MERCATO 
CHE IL MERCATO SUI PRODOTTI 



Il mercato del Mezzogiorno: un mercato geograficamente lontano dagli 
^importanti Saloni internazionali, ma un mercato fecondo perchè sulla 

via di un rapido rinnovamento. 
Per questo Fiera del Levante, COMUFFICIO e Tecnopolis - 
sotto il patrocinio dello SMAU e delle Università del 
Mezzogiorno - oggi presentano TECNORAMA/UFFICIO: 
k la nuova rassegna di macchine, attrezzature e arredamenti 
per l’ufficio, che si terrà a Bari dal 24 al 28 gennaio 1985. 
Una rassegna di 35.000 metri quadri, ricca di iniziative 
promozionali, che stabilirà contatti diretti fra produttori e migliaia di 
aziende agricole, industriali e commerciali operanti nell'intero territorio 
meridionale e desiderose di innovare e di rinnovarsi. 
Una rassegna che creerà nuovi legami fra operatori del settore 
e migliaia di studi professionali ed amministrativi. 
Una rassegna che si rivolgerà anche e particolarmente al 

mondo dei giovani. 
Chi decide di partecipare a TECNORAMA/UFFICIO come 
espositore decide anche di cogliere una occasione 
importante per un importante sviluppo dei propri affari in 
un'area geografica quanto mai importante, che si 
estende, grazie all'esperienza della 
Fiera del Levante, fino ai Paesi del 
Mediterraneo. 
Perchè è più redditizio 
portare i prodotti su un 
mercato in attesa 
che non viceversa. 








TECNORAMA UFFICIO 


E.A. FIERA DEL LEVANTE 
LUNGOMARE STARITA 70123 BARI 
TELEFONO (080)206111 
TELEX 810101 FIDLEV I 


SALONE DELLA TELEMATICA E DELLE COMUNICAZIONI 
NELL’ORGANIZZAZIONE AZIENDALE. 

MACCHINE ED ARREDAMENTI PER L'UFFICIO 








Torneo 
di bridge 


CLASSIFICA N-S CLASSIFICA E - 0 


2 

83 

113 

61 

4 

83 

116 

58 

18 

81 

111 

57 

l 

76 

106 

56 

3 

70 

109 

53 

16 

70 

115 

51 

19 

58 

105 

50 

20 

53 

104 

49 

14 

50 

112 

41 

15 

46 

103 

40 

5 

44 

114 

40 

17 

42 

101 

39 

7 

32 

117 

.35 

6 

24 

118 

35 

13 

21 

102 

32 

12 

19 

119 

30 

11 

18 

110 

29 

8 

10 

108 

24 

9 

0 

107 

18 

10 

0 

120 

16 


Figura 2. Le classifiche N-S e E-0 de! torneo di figura I. 



del prospetto finale (7770-7810). 
1697-1970 - Stampa su 132 colonne 
dei prospetti finali. Le linee 1677- 
1727 prevedono l’inizializzazionc 
per la stampante Centronics 739 e 
vanno opportunamente modificate 
per le altre stampanti. 

85-200 - Stampa della classifica fina¬ 
le delle coppie N-S e E-O: terminata 
questa operazione il comando ritor¬ 
na al programma Bridge- 
Memorizza. 

Conclusioni 

Prima di terminare accenniamo 
brevemente alla velocità di esecuzio¬ 
ne del programma, una volta termi¬ 
nata la fase di introduzione dei dati 


(che, prevedendo la possibilità di in¬ 
serimento parziale dei risultati, può 
terminare entro dieci minuti dalla 
fine del torneo). 

Per il calcolo di uno score conte¬ 
nente 20 risultati è necessario un 
tempo di elaborazione di circa 7 se¬ 
condi, per cui per un torneo di 40 
mani si ottiene la classifica finale 
dopo circa quattro minuti; tale tem¬ 
po si riduce di oltre la metà se il 
programma viene compilato (ad 
esempio usando il Task lo stesso 
score viene elaborato in meno di 3 
secondi). Come termine di paragone 
si consideri che una persona esperta 
eseguendo i conti a mano da sola 
impiegherebbe mediamente circa 3 
ore per ottenere i risultati completi. 


RIVISTE JACKSON. 
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rchivio 

per Spectrum 


Un utile strumento per 
memorizzare i vostri dati 


di Natale Cartoni 

I l titolo dice già tutto, o quasi, 
della sua funzione, con la so¬ 
la aggiunta che esso è rivolto 
ad una particolare categoria, anche 
se certamente non esigua, di utenti 
di questo tipo di software. 

La molla, anzi l'assillo, che mi ha 
spinto a stendere il programma è 
stata la necessità che spesso mi si 
presenta di reperire tra i lavori che 
possiedo quelli che di volta in volta 
mi servono (lavori, articoli, reprint, 
libri, ecc.). 

Ora, tutti coloro che per la loro atti¬ 
vità o semplicemente per interesse 
personale, sono abbonati a riviste 
scientifiche, raccolgono fotocopie di 
lavori e materiale bibliografico va¬ 
rio, conoscono molto bene questo 
problema. Il materiale cartaceo 
aumenta costantemente (in qualche 
caso addirittura geometricamente), 
e se fin quando si dispone solo di 
poche centinaia di titoli è ancora 
agevole archiviare e poi ripescare 
quello che serve, ciò diviene sempre 
più tormentoso mano a mano che i 
lavori si accumulano. Quanti non si 
sono mai chiesti di fronte a un nuo¬ 
vo lavoro: “Questo lo metto nella 
sezione A o nella sezione B? Lo met¬ 
to nella A con un riferimento nella 
B? oppure viceversa? Apro una nuo¬ 
va sezione? ecc.’’. 

Fino a quando, presi dallo sconfor¬ 
to, ci si rassegna a conservare solo 
ciò che al momento sembra rilevan¬ 
te (falsa soluzione!: dopo 2 giorni si 
torna a raccogliere tutto) oppure ci 
si affida alle capacità mnemoniche 


del proprio cervello (che però, si ri¬ 
fiuta di ricordare una simile mole di 
dati) e si verifica, praticamente, il 
caos. 

Con questo programma ho risol¬ 
to gran parte dei miei problemi e 
riesco a consultare tutti i miei lavori 
(circa 3.000 titoli nell’ambito delle 
scienze mediche) e a reperire quelli 
che mi interessano. 

Il programma è costituito da un 
primo blocco introduttivo che effet¬ 
tua una semplice inizializzazione 
(BORDER, PAPER, INK, CLEAR 
32767, ecc.) e presenta la lista delle 
opzioni, e di altri sette brevissimi 
blocchi ciascuno dei quali espleta 
un’opzione. 

Ecco l’elenco che viene presentato 
all’inizio: 

ARCHIVIO 

1 Immissione 

2 Ricerca per autore 

3 Ricerca per titolo 

4 Ricerca per chiave 

5 Ricerca per collocazione 

6 Correzioni 

Premendo il numero corrispondente 
a una delle opzioni si dispone il com¬ 
puter a caricare, fra i blocchi che 
seguono, solo quello con il pro¬ 
gramma relativo all’opzione pre¬ 
scelta. 

Se si ha l’accortezza di lasciare un 
intervallo di circa un minuto tra l’in¬ 
troduzione e il primo dei blocchi 
successivi non è neppure necessario 
fermare il registratore durante la 


scelta dell’opzione. Premendo il 6 
viene -'^"alizzato quest’altro breve 
elenco preliminaic. 

CORREZIONI 

1 Lavori in posizione nota 

2 Lavori in posizione sconosciuta 

I lavori vengono memorizzati in ma¬ 
trici che contengono 100 record 
ognuna - DIM B$ (100, 81). La sud- 
divisione del record è effettuata in 
figura 1. 

Durante l’esecuzione del program¬ 
ma le matrici vengono caricate (e/o 
salvate a secondo dell’opzione) in 
blocchi autonomi rispetto al pro¬ 
gramma - LOAD/SAVE “are" DA¬ 
TA B$ (). 

1) Immissione 

All’inizio viene richiesto se si desi¬ 
dera immettere dati in un blocco 
nuovo, oppure in uno già iniziato. 
Nel secondo caso il computer chiede 
di caricare il blocco già iniziato, in¬ 
dividua l’ultimo lavoro presente nel 
blocco e si dispone per accogliere i 
dati del nuovo lavoro nel primo re¬ 
cord libero. L’immissione avviene 
attraverso una maschera nella quale 
il cursore si colloca di volta in volta 
a fianco del nome del dato richiesto. 

II numero in chiaro in alto a sinistra 
(n) è il numero d’ordine del record 
aM’interno della matrice(da 1 a 100). 
Premendo ENTER dopo ogni dato 
il cursore si sposta al dato successivo 
e, dopo l’ultimo dato del record, vie¬ 
ne visualizzata la maschera vuota 


colloc 

\ chiave 1 chiave2 chiave 3 


24 

36 

40 

42 

55 

68 

81 

1 

25 

3? 

41 

43 

56 

69 


titolo autore 

anno 

Figura 1. Il tracciato del record dell'archivio. 
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Listato 1. Il listalo del programma Archivio suddiviso 
in blocchi. 


8 20. GO SUB 10: GO SUB 60 


150 FGR n =3 TG 13 

160 PRINT RT n,0; " 

ARCHIVIO 


": NEXT n 

170 PRINT BRIGHT 1,RT 9,0;" 

10 GUER 1 


SCEGLIERE L OPZIONE" "" '" SE 

£0 LET 9»-l: LET b=177: LET C= 


NZR FERHRRE IL NRSTRO" 

256: LET d=176 


130 PRUSE 40: GG SUB 100: PHUSE 

30 FGR j=0 TG 36 


SO: GO SUB 100 PRUSE 40: GUER 

40 LET a =a +2 : LET b = b-4: LET C 


0 

= C-2: LET d=d-2 


190 CLS : PRINT RT 1,12;" RRCHI 

50 PLGT a,a: DRAW 0,b: PLGT C , 


UIO TRB s.; " 1 INTRGD. NUOUI 

d: DRAU 0,-b 


TITOLI"' TRB 5,"2 RICERCR PER R 

60 NEXT j 


UTGRE" 'TRB 5;"3 RICERCR PER TI 

70 RETURN 


TOLO"' TRB 5;"4 RICERCA PER CHI 

30 PRINT RT 9,12,"ARCHIUIO";RT 


AUE" 'TRB 5,"5 RICERCA PER COLL 

11,15. ,, by”;RT 12,11;"N. Canoni 


OC."''TRB 5;"6 CORREZIONE" 



200 INK 6: LET a =CGDE INKEV $ 

90 RETURN 


210 IF a<49 OR a>54 THEN GO TG 

100 FGR a =0 TG £54 5TEP 2: PLGT 


200 

a,111: DRAU 0,-47: PLGT 255-a,6 


220 IF a=49 THEN LORD "archivia 

4 : DRAU 0.47 


" 

110 NEXT a 


230 IF a=50 THEN LORD "autore” 

120 RETURN 


240 IF a=51 THEN LORD "titoto" 

130 CLEHP. 32767: BGRDER 6: PHPE 


250 IF a=52 THEN LORD "Chiave" 

R 6: INK 0: CL5 : GG SUB 20 


260 IF 3=53 THEN LORD "COllOC." 

140 GG SUB 80 GG SUB 10 : GO i>U 


270 CLS : PRINT INK 0," NON 


del primo record libero successivo. 
Se durante l'immissione di un re¬ 
cord ci si rende conto di un errore 
commesso nel dato che si sta intro¬ 
ducendo, lo si può facilmente cor¬ 
reggere con l’uso del DELETE e del¬ 
le frecce a sinistra e a destra. Se l’er¬ 
rore è in un dato già immesso, si dia 
uno STOP premendoCapsSHIFTe 
6; con un successivo CONTINUE 
l’immissione riprende dall’inizio 
dello stesso record. 

Terminata l’immissione del record 
n. 100, il blocco ultimato viene regi¬ 
strato (è sufficiente far partire il re¬ 
gistratore e premere un tasto alla 
comparsa del consueto Start Tape). 
Comunque è possibile interrompere 
l’immissione anche prima di essere 
arrivati al record 100 (per esempio 
se ci si stanca o se i lavori da registra¬ 
re sono terminati). Per questo è suf¬ 
ficiente introdurre un record in 
“bianco”, vale a dire non immettere 
dati, ma premere solo ENTER: al 
termine di questo record il computer 
non presenta la maschera del record 


successivo ed inizia il salvataggio di 
questo blocco-dati parziale. Al ter¬ 
mine del salvataggio viene richiesto 
“Continui?”; se sì la procedura rico¬ 
mincia, se no il programma si arre¬ 
sta. 

Attenzione: il programma considera 
vuoto un record se è vuota la sua 
posizione iniziale (che è anche la pri¬ 
ma del titolo): perciò nell’archivia¬ 
zione di un lavoro si può tralasciare 
di immettere alcuni dati (perché, per 
esempio, non si conosce l’anno di 
pubblicazione oppure l’autore, op¬ 
pure sono sufficienti meno parole- 
chiave di quelle predisposte), ma 
non il titolo: se non si conosce il 
titolo di un lavoro che si intende 
registrare è comunque necessario 
mettere qualcosa nella prima posi¬ 
zione (per esempio un asterisco, un 
punto, un trattino). 

Per quanto riguarda l’ampiezza 
dei singoli campi, da quanto detto a 
proposito della suddivisione del re¬ 
cord si ottiene: 

Collocazione: 4 caratteri 


Autore: 12 caratteri 

Titolo: 24 caratteri 

Anno: 2 caratteri 

Chiavi: 13 caratteri 

per ciascuna 

2) Ricerca per autore 

Questa opzione richiede il nome 
di un autore e individua nei blocchi¬ 
dati tutti i suoi lavori. L’operazione 
avviene confrontando il nome im¬ 
messo per la ricerca con i nomi pre¬ 
senti nei diversi record. È superfluo 
ricordare che la presenza anche di 
un solo carattere diverso fa sì che 
quel lavoro non venga individuato. 
Per ridurre questo inconveniente al¬ 
l’inizio viene richiesto “CUT 
8/12?”, che significa se si desidera 
ricercare un autore sulla base solo 
delle prime 8 posizioni anziché tutte 
e 12 (cut = taglio). In questo modo, 
anche se generalmente non è neces¬ 
sario ricorrere ad abbreviazioni per 
l’autore, è possibile ritrovare i lavori 
di un autore per esempio dal cogno¬ 
me troppo lungo, anche se non ci si 
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ricorda come lo si è àbbbreviato, 
oppure se ci si ricorda solo il cogno¬ 
me e non il nome. Un metodo stan¬ 
dard per scrivere l'autore è quello di 
riportare per primo il cognome (con 
iniziale maiuscola) e di seguito, ma 
non prima dell’ottava posizione(co- 
sì da poter essere eventualmente 
escluso dal CUT), l’iniziale maiu¬ 
scola del nome, seguita a sua volta 
da “al” (che sta per “alii”) se vi sono 
coautori. Alcuni esempi: 

• Brody J; 

• Elizan T; 

• Fcldman Rai. 

I lavori dell’autore richiesto vengo¬ 
no visualizzati con il formato della 
figura 2. 

Quando tutti i record di un blocco 
sono stati esaminati si ha la scritta 
“Fai partire il registratore”, per ca¬ 
ricare il blocco successivo e poi, a 
operazione ultimata, la ricerca ri¬ 
prende automaticamente. 

Nell’operazione di salvataggio 
che conclude la fase di immissione è 
stata introdotta volutamente una 
pausa prolungata tra la richiesta di 
accendere il registratore e l’inizio 
della registrazione vera e propria. 
Conseguentemente sul nastro tra un 
blocco-dati e il successivo vi è un 
sufficiente intervallo perché il com¬ 
puter effettui la ricerca completa e si 
disponga nuovamente per il carica¬ 
mento, senza che nel frattempo sia 
necessario spegnere il registratore. 
Sarà sufficiente fermare il nastro so¬ 
lo nel caso che i titoli trovati abbia¬ 
no riempito lo schermo (nel qual 
caso viene richiesto uno Scroll). 


3) Ricerca per titolo 

Opera esattamente come l’opzio¬ 
ne precedente, con la differenza che 
il titolo può essere ricercato sulla 
base di tutti i 24 caratteri, oppure 
solo dei primi 16 (rispondendo “si” 
alla domanda “CUT 16/24?”). 

4) Ricerca per collocazione 

Anche questo programma opera 
in modo analogo a quanto visto al 


punto 2. Però in questo caso, visto 
che i singoli caratteri di questo cam¬ 
po possono avere i significati piu 
svariati (a secondo del tipo di codifi¬ 
cazione che si intende adottare), vi è 
la possibilità di effettuare la ricerca 
in base a 1, 2, 3 oppure tutti e 4 i 
caratteri della collocazione. 

Per questo all'inizio vi è un’apposita 
richiesta. 


5) Ricerca per chiave 

Per l’individuazione di un lavoro 
in base a una parola-chiave (la key¬ 
word degli anglosassoni) è sufficien¬ 
te che una delle sue tre chiavi corri¬ 
sponda con quella immessa in fase 
di ricerca. Se non si desidera con¬ 
frontare tutta la parola, si può ri¬ 
chiedere un CUT 8/13, limitando 
così il confronto alle prime 8 lettere. 
Sfruttando questa particolarità è 
possibile rendere la ricerca per paro¬ 
le chiave più o meno specifica. Fac¬ 
ciamo un esempio: se abbiamo tre 
lavori che parlano di ulcera gastrica, 
potremo usare per ciascuno di essi la 
parola chiave “ulcera gastr.”, e in 
fase di ricerca rcimmettendo la stes¬ 
sa parola (o anche la stessa ma ab¬ 
breviata con un CUT), ritroveremo 
tutti e tre i lavori. Tuttavia se ci si 
rende conto che questi lavori tratta¬ 
no il primo degli aspetti chirurgici, il 
secondo di quelli farmacologici e il 
terzo di quelli dietetici, ad esempio. 


dell’ulcera gastrica, si potrà modifi¬ 
care le parole chiave in questo mo¬ 
do: “ulcera g*xhir”, “ulcera 
gufami” e “ulcera g*diet”. Ancora 
si potrà trovare tutti e tre i lavori 
usando il CUT e introducendo per la 
ricerca “ulcera g"; ma qualora ci 
interessasse un argomento partico¬ 
lare, introducendo il termine com¬ 
pleto, dei tre si troverebbe solo il 
lavoro più attinente. 

6) Correzioni 

6a) - Lavori in posizione noia. 

Si utilizza quando si deve correggere 
un lavoro del quale si conosce il nu¬ 
mero d’ordine all’interno del bloc¬ 
co. 

Prima viene richiesto di caricare il 
blocco, e poi di immettere il numero 
d’ordine del lavoro da correggere. 
Si possono effettuare anche più cor¬ 
rezioni nello stesso record. Il punti¬ 
no in basso a destra sopra la riga 
dell’Input, corrisponde all’ultima 
posizione che viene accettata nella 
sottostringa che corrisponde al tito¬ 
lo; quello che viene scritto più a de¬ 
stra del puntino non viene accettato. 
Al termine si preme loO, dopodiché 
il computer chiede se ci sono altre 
correzioni nello stesso blocco, e se 
sì, quale - numero. In caso contrario 
si passa al salvataggio del blocco 
corretto al posto di quello sbagliato. 
6b) - Lavori in posizione sconosciuta. 
Si utilizza quando, pur sapendo che 


autore 


collocazione 

(inverse) 


n d'ordine al¬ 
l'interno del 


z . 

~7 

7 

7 

7 






titolo (bright) 


anno 

(se specificato nel 
record) 


Figura 2. // formalo della visualizzazione dei record ricercali per amore. 
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Seguito Usuilo Archivio. 


FERMARE IL NASTRO . 

CORREZIONI 1 LAU 

ORI IN POSIZIONE NOTA"''" 2 LAU 
ORI DA RICERCARE" 

280 LET a«CODE INKEY$ 

290 IF a 049 AND a <>50 THEN GO 
TO 280 

30O IF a=49 THEN LOAD "unKnown" 
310 LOAD "lOOKfOr" 


CHIAVE 


10 INK NOT PI: GO SUB CODE "X" 

: INPUT "CUT 8/13 ? “;P * : DIM à$ 
(UAL "8"4 (UAL "5" AND p$<>"S">): 

INPUT "Chiave _- 

" AND p $ < >"S"j AT SGN PI,UAL "8"; 

LINE a $ 

20 BEEP .3,CODE "$": PRINT AT 
INT PI,UAL "4";" CASSETTA BLU., 
CCHI POSIZIONATA ALL' 

INIZIO " 

30 PRINT '" Fai partire il r 
egistratore": INK UAL "8": LOAD 
"are" DATA b$ ( ) : CLS : INK NOT P 
I: GO SUB CODE "X" 

4.0 PRINT "Sto cercando i tavor 
i con chiave"; bright SGN Pi;a$' 
50 FOR n=5GN PI TO CODE "d" 

60 FOR r «CODE "4" TO CODE "O" 


STEP UhL "13" 

70 IF b$(n,r TO C4LEN a*-SGN P 
I)=3$ THEN GO SUB CODE "n" 

SO NEXT r 
90 NEXT ri 

100 GO TO UAL "30" 

110 PRINT ' ' b$ (n , UAL "25" TO CO 
DE "*") , INUERSE SGN PI.;b$(n,COD 
E "X" TO CODE "(");: BEEP .1,COD 
E "$": PRINT n' BRIGHT SGN PI,b$ 
(n, TO UAL "24.").;" 19 "4b$ (n,CODE 
")" TO CODE "*") AND b*(n,CODE 
")")<>" RETURN 
120 BEEP .3,CODE " ": CLS : PRI 
NT AT INT PI,UAL "12";" STOP ": 
PAUSE CODE "d": CLS : RETURN 


AUTORE 


10 INK NOT PI: GO SUB CODE "Z" 
: INPUT "CUT 8/12 ? ";p$: DIM a$ 
(UAL " 8 “ 4 (UAL "4." AND p*<>"S")): 

input "Autore __— 

AND p$<>"S";AT SGN PI,UAL "8", 
LINE a$ 

20 BEEP .3,CODE PRINT AT 

INT PI,UAL "4" ; " CASSETTA Bl_9 
CCHI "'" POSIZIONATA ALL' 

INIZIO " 

30 PRINT '" Fai partire il r 
egistratore": ink ual "6": load 
" are” DATA b$(): CLS : INK NOT P 
I: GO SUB CODE "Z" 

40 PRINT "Sto cercando i tavor 
i di"' BRIGHT SGN PI; a*' 

50 FOR n «SGN PI TO CODE "d" _ 
60 IF bS (n,UAL "25" TO UAL ’25 
" 4 LEN a*-SGN PI)=a* THEN GO SUB 
CODE "P" 

65 NEXT n 

70 GO TO UAL "30" „ __ 

80 PRINT ''b$(n,UAL "25" TO Cu 


DE 

E 

E 

(n 


*") , INUERSE SGN PI;b$(n,COD 
X" TO CODE "(");: BEEP .1,COD 
PRINT n' BRIGHT SGN PI;b* 


TO UAL "24");" 19 
j " TO CODE "*") AND 
")")<>" ": RETURN 

90 BEEP .3,CODE " " 
NT AT INT PI,UAL "12" 
PAUSE CODE "d": CLS : 


’ 4b$ (n,CODE 
b$ (n,CODE 


CLS : 
" STOP 
RETURN 


PRI 


TITOLO 


10 INK NOT PI: GO SUB CODE "Z" 

• INPUT "CUT 16/24 ? ";p$: DIM a 
$ lUAL "16"4 (UAL "8" AND PSO"s") 

): INPUT "Titolo _ 


_" AND P$<>"S";AT SGN 

PI,UAL "7"; LINE a$ 

20 BEEP .3,CODE " ": PRINT AT 
INT PI,UAL "4";" CASSETTA BLO 
CCHI "'" POSIZIONATA ALL' 


INIZIO " 

30 PRINT '" 'Fai partire il r 
egistratore"' INK UAL ”6": LOAD 
"are" DATA b$() : CLS : INK NOT P 
I: GO SUB CODE "Z" 

40 PRINT "Sto cercando il tito 
IO"' BRIGHT SGN PI;a*' 

50 FOR n=SGN PI TO CODE "d" 

60 IF b$(n, TO LEN a*)=a* THEN 
GO SUB CODE "P" 

65 NEXT n 

70 GO TO UAL "30" 

80 PRINT ''b$(n,UAL "25" TO CO 
DE "*"), INUERSE SGN PI;b*(n,COD 
E TO CODE "(");: BEEP .1,C0D 

E PRINT ri ' BRIGHT SGN PI; b* 

(n, TO UAL "24");" 19"4bS(n,CODE 
")" TO CODE "*") AND b*(n,CODE 
")")<>" ": RETURN 

90 BEEP .3,CODE " ": CLS : PRI 
NT AT INT PI,UAL "12";" STOP ": 
PAUSE CODE "d": CLS : RETURN 


COLLOCAZIONE 


O 


10 INK NOT PI: CLS : PRINT TA 

B UAL "7";"Se lesiona il CUT. 

'TAB UAL "10"; .- - - -.TAB 

UAL "11"; : FOR ri =SGN PI TO UAL 
"4": PRINT FLASH NOT C4SGN PI<n, 
n; FLASH NOT Pi;" ";: NEXT n: RE 
TURN 

20 LET C =-SGN PI: GO SUB UAL 
10 " 

30 LET C «CODE INKEY $-CODE "1" 
40 IF C <NOT PI OR C >INT PI THE 
N GO TO UAL "30" 

50 GO SUB UAL "10": DIM a* (C+S 
GN PI): INPUT "CollOC. ";a$ 

60 BEEP .3,CODE CLS : PRI 

NT AT INT PI,UAL "4";" INIZIO CA 
SSETTA BLOCCHI " 

70 PRINT '" Fai partire il r 
egistratore": ink ual "6": load 

"are" DATA b $ ( ) : CLS : INK NOT P 
I: GO SUB CODE " 

80 PRINT "Sto 
i con couo-cazione 
GN PI ; a $ " 

90 FOR n =SGN PI TO CODE "d" 

100 IF b$ (n, CODE TO CODE 

"4C)=a$ THEN GO SUB CODE " 

110 NEXT ri 

120 GO TO CODE "F" 

130 PRINT ' 'b$ (n,UAL "25" TO CO 
DE "$"), INUERSE SGN PI;b$(n,COD 
E TO CODE "(");: BEEP .1,C0D 

E "$": PRINT n' BRIGHT SGN PI;b$ 
(n, TO UAL "24");" 19"4b$ (n,CODE 
")" TO CODE "*") AND b$(n,CQDE 
")")<>" ": RETURN 
140 CLS : PRINT AT INT PI,UAL " 
12";" STOP ": BEEP .3,CODE " ": 
PAUSE CODE "d": CLS : RETURN 


cercando i lavor 
; BRIGHT S 




ARCHIVIA 


10 CLS : INK NOT PI: DIM b*(CO 
DE "d",CODE "Ò"): INPUT "Blocco 
nuovo? "; S $ : IF CODE S $ =CODE "S" 
THEN GO TO UAL "30" 

20 CLS : PRINT "carica il blOC 
cò": INK UAL "6": LOAD "are" DAT 


69 











Seguito listato Archivio. 


R b$U : INK NOT PI : CLS 

30 FOR a =SGN PI TO CODE "d": I 
F CODE b$Ca)=CODE " " THEN LET £ 

INPUT 6RIGHT 5 



; (S *) ;RT SG 
E b$ia ( CODE '"A" 

5GN PI,URL "19" 

25" TO CODE "È" 

"7"; LINE b $ C a , 

URL "5",URL "2" 

TO CODE 
'18", LINE b$ Ca,CODE 
”?“);RT URL "6",NOT 
(a,CODE "8" TO CODE 
'6",URL "18"; LINE 
TO CODE "0") 


NOT PI; (a) 
_ 

( s $ ) ; ( s $ j 
•: s $ ) •' < s $ ) 
PI,URL "6 


u t o r e 


BRIO 


' l'5_ 


L IN 

TO CODE " (") ; RT 
LINE b*ia,URL " 
;RT URL "3",URL 
TO URL "24-" ) ; RT 
LINE b$ia,CODE 
;RT URL "5",URL 
"+" TO CODE 
PI; LINE bÈ 
"D");RT URL 
b$ (a,CODE "E" 


40 IF CODE b$(a) < >CODE “ " THE 
N NEXT a 

SO print "Salva questo blocco" 
:• PRUSE 500 

50 CLS : 5RUE "are" DRTR bÈO: 
INPUT "Continui? "; £ è : IF CODE 
S È =CODE "s" THEN GO'TO URL "10" 
70 STOP 


UNKNOWN 


E 

1 DRTR 
" ( " 

"..Coll.",CODE 

" /• " t uuD 

E 

2 DRTR 

"$" 

" .fiutore",URL " 

25",COD 

4" 

3 DRTR 

" .Tito IO",PI=PI 

,URL "2 

E 

4 DA TH 

" “ 

"...finno ",code 

")",COD 

E 

5 DRTR 

"7" 

"...Ch.1",CODE 

"+",COD 

E 

6 DRTR 

"D" 

"...Ch.2",CODE 

"8",COD 

F 

7 DhTH 1 

" iTi " 

• • » Uh ■ US f UUDE 

"E",COD 


10 INK NOT PI: CLERR : PRINT " 
Carica il blocco": INK URL "6": 
LORD "are" DRTR bÈO: INK NOT PI 
■ CLS 

20 CLS : input "Numero? “;a 

30 GO SUB CODE "n" 

40 LET g=QODE INKEYÈ-CODE " 0 ”: 
IF g<NOT PI OR g>URL "7" THEN G 
0 TO CODE "(" 

50 IF g=NOT PI THEN GO TO CODE 

..p., 

60 GO SUB CODE "X" 

70 RESTORE g: RERD CÈ: RERD d: 
RERD £: INPUT bÈla,d TO e): GO 
TO URL "30" 

SO INPUT "Ri tre corr.? ";aÈ: I 
F CODE a $=CODE "s" THEN GO TO UR 
L "20" 

50 CLS : 5RUE "are" DRTR bÈO: 
INPUT "filtri blocchi? " ; a è : IF 
CODE a È<>CODE "s" THEN STOP 
100 CLS : GO TO URL "10" 

110 LET g =NOT PI 


vi è un lavoro da correggere, non si 
sà in quale posizione si trova nel 
blocco. 

Sullo schermo viene visualizzato il 
primo lavoro, in modo analogo a 
quanto visto al punto 6a, con l’ag¬ 
giunta di: 

8 NEXT 

Cioè premendo 8 si passa alla visua¬ 
lizzazione del record sucessivo, e si 
può così proseguire fino a quando 
non viene trovato il lavoro da modi¬ 
ficare. Se non si desidera proseguire, 
con lo 0 si registra il blocco dopo 
avere effettuato la correzione. 
Questa opzione è anche molto utile 
per visualizzare tutti i lavori conte¬ 
nuti in un blocco (per controllo, ve¬ 
rifica, ecc.). 

Se è necessario cancellare un co¬ 
spicuo numero di lavori in un bloc¬ 
co, per quanto già visto al punto 1, è 
sufficiente cancellare il titolo di que¬ 
sti. Ripassando in seguito a questo 
blocco in fase di immissione, tutti 
questi record verranno considerati 
vuoti, pertanto completamente ri¬ 
scrivibili. 

Osservazioni sul listato 

Il listato, non è molto elegante, 
ma è stato necessario utilizzare tutti 


gli espedienti utili per ridurre al mi¬ 
nimo l’area di memoria occupata 
dal programma con le sue variabili. 
Così il numero delle linee è in genere 
il minore possibile e inoltre sono 
praticamente stati eliminati tutti i 
numeri come tali, che occupano 
troppi byte, sostituiti dai CODE, 
dai VAL e altri espedienti. Tutto ciò 
è necessario per consentire di lavo¬ 
rare con matrici così ampie (più di 
8.100 byte l’una). 

I singoli blocchi hanno l’autostart; 
nell’ordine in cui si trovano sul na¬ 
stro, questi i loro titoli (listato 1): 


Archivio 

Chiave 

Autore 

Titolo 

Colloc. 

Archivia 

Unknown 

Lookfor 


line 130 
line 10 
line 10 
line 10 
line 20 
line 10 
line 10 
line 10 


I tratti evidenziati alle righe 160,190 
e 270 del programma Archivio si 
ottengono premendo al loro inizio 
Caps SHIFT + Symbol SHIFT e 
successivamente il 9; al loro termine 
Caps SHIFT + Symbol SHIFT e 
successivamente l’8. Inoltre, alla ri¬ 
ga 270, per dare il lampeggio alla 


scrittura non fermare il nastro, in 
aggiunta vanno premuti, all’inizio 
Caps SHIFT + Symbol SHIFT se¬ 
guiti da Caps SHIFT + 9, alla fine 
Caps SHIFT + Symbol SHIFT se¬ 
guita da Caps SHIFT + 8. 

Per quanto riguarda il programma 
Chiave occorre adottare la seguente 
procedura alla riga 20: all’inizio dei 
due tratti evidenziati: Caps SHIFT 
+ Symbol SHIFT e poi 9; al termi¬ 
ne: Caps SHIFT + Symbol SHIFT e 
poi 8. Alla riga 120 per ottenere il 
lampeggio: all’inizio Caps SHIFT + 
Symbol SHIFT e poi 9, Caps 
SHIFT + Symbol SHIFT e poi 
Caps SHIFT + 9; al termine Caps 
SHIFT + Symbol SHIFT e poi 8, 
Caps SHIFÌ + Symbol SHIFT e 
poi Caps SHIFT + 8 (anche per lo 
STOP alla riga 90 del programma 
Autore). 

Questa procedura vale anche per le 
linee 20 dei programmi Autore e Ti¬ 
tolo e la 60 di Colloc. 

Le parole Coll., Autore, Titolo e 
Chiavi alla riga 30 di Archivia sono 
ottenute con Inverse Video all’inizio 
di ciascuna di esse (e, ovviamente, 
True Video alla fine di ciascuna). 
Infine, ogni volta che compare Era- 
se nel programma Lookfor, anche se 
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Seguilo listalo Archivio. 


120 RESTORE 

130 FOR f = SGN PI TO URL '•7": RE 
RD a $ : RERD d; REHD 6 
14.0 PRINT RI NOT PI,SGN PI;"0 P 
ER USCIRE";RT URL "21",URL "24"; 
".";RT NOT PI,URL "29"; 6RIGHT S 
GN PI ; a 

150 IF (=q THEN FLRSH SGN PI 
160 PRINT RT t *INT PI-SGN PI,NO 
T PI; f; ai;RT f #int pi,url "5"; I 
NUERSE SGN PI;b$(a,d TO e): FLRS 
H NOT PI: NEXT f: RETURN 


LOOKFOR 


1 ORTR 
E " ( " 

2 DRTR 
E 

3 DRTR 

24" 

4 DRTR 
E "*" 

5 DRTR 
E "7" 

6 DRTR 
E "D" 

7 DRTR 


. . LOl l . , CODE , COD 

".Rutere",URL "25",COD 
".TitoIO",SGN PI,URL " 
.Anno",CODE ")“,COD 
... uh.1 ,CODE 4 ,COD 
...Uh .2 ,CODE 'd ,CuD 
... uh.3 ,CODE E' ,COD 


E "0" 

10 INK NOT PI: PRINT " Carica 
i l blocco" 

20 INK URL "6": LORD "are" DRT 
R b* () : INK NOT PI: CLS 

30 FOR a =SGN PI TO CODE "d" 

40 GO SUB URL "150" 

50 LET g=CODE INKEY$-CODE "0": 
IF g <NOT PI OR g>UAL "3" THEN G 
0 TO CODE "2" 

60 IF g=NOT PI THEN GO TO CODE 

"n" 

70 IF g=URL "8” THEN GO TO COD 
E "d" 

80 RESTORE g: GO SUB CODE " ER 
RSE ": GO SUB URL "160": RESTORE 
g: GO SUB CODE " ERRSE ": INPUT 
b*(a,d TO e): GO TO CODE "(" 

100 NEXT à 

110 SRUE "are" DRTR bit) 

120 INPUT "Ritri blocchi? ";a$ 
130 IF CODE a $ < >CODE "s" THEN S 
TOP 

140 CLS : GO TO URL "10" 

150 LET g=NOT PI 
160 RESTORE 

170 FOR (*SGN PI TO URL "7": GO 
SUB CODE " ERRSE " 

180 PRINT RT NOT PI,NOT PI;"0 P 
ER USC./8 NEXT";RT URL "21",URL 
"24";".";RT NOT PI,URL "29"; BRI 
GHT SGN pi; a 

190 IF f=g THEN FLRSH SGN PI 
200 PRINT RT r*INT PI-SGN PI,NO 
r PX;f;a$;AT faiNT pi,url "5"; I 
NUERSE SGN Pl;biia,d TO e): FLRS 
H NOT PI: NEXT f: RETURN 
210 RERD a t : RERD d: RERD e: RE 
TURN 


tra virgolette, va battuto come co¬ 
mando, non lettera per lettera. 
L’insieme dei blocchi è ripetuto di¬ 
verse volte sul nastro, così da non 
dover continuamente riavvolgere. 
Nelle ripetizioni successive l’intro¬ 
duzione (Archivio)è ridotta pratica- 
mente al menu per cui l'intervallo 
che segue può essere ulteriormente 
ridotto. L’intestazione del blocco 
introduttivo in questa versione è Ar¬ 
chivio 1, sempre LINE 130. 

Il listato di Archiviol è identico a 
quello di Archivio meno le linee IO, 
120, 130, 140. 180, e con la seguente 
modifica: 

270CLS: PRINT INK 0. 

CORRLZIONI.I LAVORI 

IN POSIZIONI-: NOTA.2 LAVORI 

DA RICERCARE 

1 blocchi-dati si registrano su casset¬ 
te a parte che consigliamo di breve 
durata; oppure ma la cosa ci sembra 
meno agevole, è possibile registrare 
il programma all’inizio della stessa 
cassetta con i blocchi-dati. 

Nulla vieta comunque di utilizzare 
cassette col nastro lungo - una nor¬ 
male C 60 può contenere agevol¬ 
mente 4.000 e più titoli. 

Si tenga presente che è abbastan¬ 
za facile e rapido riempire blocchi e 
blocchi di dati, ma se lo si fa in modo 


improvvisato è anche facile perdere 
gran parte dell’utilità di un simile 
archivio. Innanzitutto è indispensa¬ 
bile assegnare un significato preciso 
a ciascuna delle posizioni della col- 
locazione. E in fase di immissione si 
valuti anche in modo appropriato la 
possibilità che il CUT offre di effet¬ 
tuare la ricerca dei lavori in modo 
più o meno specifico. Le parole- 
chiave, che tutte insieme possono 
essere considerate come un grande 
indice analitico, sono sicuramente 
lo strumento più interessante e utile 
di questo archivio. Tuttavia, mette¬ 
re delle chiavi a senso, o peggio, a 
casaccio, magari improvvisando le 
eventuali abbreviazioni, senza se¬ 
guire un criterio di massima, riduce 
sicuramente molto l’efficacia delle 
successive ricerche per chiave. E 
senz’altro consigliabile individuare 
le parole chiave solo sulla base del¬ 
l’effettivo contenuto (leggere per lo 
meno l’abstract o il summary), e non 
solo sulla base del titolo. Molto utile 
può essere anche un foglietto con le 
abbreviazioni delle parole-chiave 
più lunghe e complesse, ripiegato e 
conservato dentro la stessa scatola 
della cassetta. Seguendo queste sem¬ 
plici indicazioni, in fase di ricerca il 


programma consente di individuare 
in modo rapido e selettivo tutti i 
lavori che interessano. 

Per concludere, volendo puntua¬ 
lizzare i vantaggi offerti dal pro¬ 
gramma: 

• linguaggio BASIC, conosciuto da 
tutti (anche se il listato si presenta 
un po’ ostico e compresso, in fase 
operativa la semplicità d’uso è note¬ 
vole); 

• alla portata di chiunque possieda 
uno Spectrum 16 Kbyte in configu¬ 
razione semplice (non richiesta 
stampante o il drive); 

• record di adeguata estensione (sul¬ 
la base della nostra esperienza ci 
sembra la struttura ottimale: un re¬ 
cord più esteso porterebbe spesso a 
byte in eccesso a quelli necessari, e 
quindi persi; più limitato porterebbe 
frequentemente a dover troncare ec¬ 
cessivamente i dati da archiviare, 
compromettendone la comprensibi¬ 
lità - un discorso simile vale anche 
per il numero delle parole- 
chiave/lavoro e per la loro lunghez¬ 
za); 

• infine, riuscire a far maneggiare a 

uno Spectrum 16 Kbyte simili re¬ 
cord in blocchi da 100 non ci sembra 
poco. ■ 
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SERVIZIO SOFTWARE 


P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 


P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CBM 3032 

14 

Tool-Kit 

C 64 

19 

Type Writer 

VIC 20 

20 

Scopa 

C 64 - 3032 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

40.000 

4 

Disco 

30.000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 

30.000 

10 

Disco 

25.000 

11 

Cassetta 


Per richiedere I programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare il seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson • Via Rosellini, 12 ■ 20124 Milano ^ 

- 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


GRUPPO EDITORIALE JACKSON 


Cod. L_ 

1 1 1 

1 1 

J a L. L 

1 

1 

1 

1 

1 

Cognome 

Cod. I_ 

1 1 1 

1 1 

J a L. L 

1 

I 

1 

1 

1 

Cod. L_ 

1 1 1 

1 1 

J a L. L 

I 

I 

1 

1 

I 


Cod. 1 _ 

1 1 1 

1 1 

J al. L 

1 

1 

1 

1 

1 

CAP 

Cod. 1 _ 

1 1 1 

1 1 

J aL. L 

| 

| 

I 

| 

1 

Città 

t SPESE POSTALI 
(contributo fisso) 

L 3.000 

TOTALE L. L 

1 

L 

L 

JL 

J 



che pagherò al postino alla consegna del pacco 


Firma 
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Come aggiungere 
35 comandi BASIC 
personalizzati, al nostro 
Commodore 64 


di Maurizio Paolinelli 


Introduzione 

Q uesto articolo è dedicato in 
particolare a chi ha già un 
minimo di cognizione del 
linguaggio Assembly e sta incomin¬ 
ciando ad esplorare quella parte di 
memoria, troppo spesso ingiusta¬ 
mente considerala tabù, che giace 
nell'area ROM $A000-$BFFF (In¬ 
terprete BASIC). 

Quando si incomincia a program¬ 
mare in Assembly nasce, prima o 
poi, l’esigenza di occuparsi di soft¬ 
ware di base e di costruire e aggiun¬ 
gere nuovi comandi BASIC perso¬ 
nalizzati alla serie dei comandi stan¬ 
dard. 

Questo problema può essere risolto 
in modo professionale riprogettan¬ 
do e riscrivendo completamente al¬ 
cune routine dell’interprete BASIC; 
ciò richiede però una completa pa¬ 
dronanza dell’architettura dell’in¬ 
terprete stesso e un’eccellente confi¬ 
denza col linguaggio Assembly. 

Il problema può anche essere af¬ 
frontalo in modo dilettantesco, ma 
in compenso alla portata di tutti, 
seguendo la strada della sostituzione 
di comandi standard poco usati o 
non indispensabili (come LET, 
WAIT, VF.RIFY, CONT, ...) con i 
nuovi comandi personalizzati; i vari 
articoli pubblicati sulla creazione di 
nuovi comandi BASIC (si veda per 


esempio Bit Dicembre ’83) impiega¬ 
no in genere questo procedimento. 
Questo è ovviamente un modo di 
by-passare il problema, ma non di 
risolverlo, in quanto, essendo estre¬ 
mamente limitato il numero di co¬ 
mandi BASIC non indispensabili o 
poco utili, il numero dei comandi 
personalizzati che si possono ag¬ 
giungere risulta necessariamente al¬ 
trettanto contenuto. 

In questo articolo viene suggerita 
un’idea che consente di aggiungere, 
e non sostituire, fino a 35 comandi 
BASIC personalizzati mediante un 
limitatissimo numero di modifiche 
all’interprete standard. 

Queste modifiche, estremamente 
semplici, non occupano che 93 byte 
di memoria; inoltre, le nuove routi¬ 
ne relative ai comandi personalizza¬ 
ti non restringono, in genere, l’area 
della memoria utente, in quanto 
possono essere memorizzate nell’a¬ 
rea fantasma RAM $A()()()-$BFFF 
(per l’utilizzo di quest’area si veda, 
fra l’altro, l’articolo di A. Guida su 
Personal Software n. 18 - Maggio 
’84, pag. 101). 

La realizzazione di questa idea 
consente dunque di disporre di 35 
comandi BASIC aggiuntivi , che cia¬ 
scuno potrà sbizzarrirsi e divertirsi a 
progettare, senza restringere, se si 
trascurano i 93 byte appena citati, la 
memoria a disposizione dell'utente, 
che resta definita nelle aree $0800- 
S9FFF (i classici 38 Kbytc BASIC) c 
$C05E-$CFFF (3,9 Kbytc invece 
dei normali 4 Kbyte). 

Per poter comprendere e seguire ij 
semplice ragionamento più avanti 
esposto è necessario conoscere, al¬ 
meno superficialmente, come le li¬ 
nee BASIC vengono gestite dall’in¬ 
terprete del C 64; il prossimo para¬ 
grafo è dedicato a questo argomento 
e può dunque essere tralasciato dal 
lettore già esperto. 


La gestione delle linee BASIC 

Quando si introduce una linea da 
tastiera, dopo aver premuto il tasto 
RETURN, viene eseguita la cosid¬ 
detta “Warm Start Routine” (pun¬ 
tata dal vettore $0302). Questa rou¬ 
tine (WSR nel seguito) per prima 
cosa carica l’intera linea nell’“input 
buffer” (si veda anche il diagramma 
di flusso di figura 1); quindi esegue 
la cosiddetta “ToKenisation Rou¬ 
tine” (TKR). 

Quest’ultima confronta successiva¬ 
mente i caratteri nel buffer con i 
caratteri memorizzati nella “Tabel¬ 
la dei Comandi” (CTB). La CTB, 
scritta a partire dalla locazione 
$A09E, contiene in sequenza tutte le 
parole chiave previste dal BASIC 
standard (ad esempio END, FOR, - 
si veda la figura 2). 

Se la sequenza dei caratteri nel buf¬ 
fer non corrisponde a nessuno dei 
nomi contenuti nella tabella, viene 
segnalato un SYNTAX ERROR: la 
parola non è prevista dal linguaggio 
e quindi non interpretabile. Vicever¬ 
sa, se la sequenza corrisponde ad 
uno dei comandi previsti nella tabel¬ 
la, viene eseguita la tokenizzazione 
del comando stesso; a seconda della 
posizione che la parola chiave occu¬ 
pa nella CTB, alla parola stessa vie¬ 
ne attribuito un numero a partire da 
128 (ad esempio: END = 128 = 1* 
posizione in tabella; FOR = 129 = 2 3 
posizione in tabella; NEW = 162 = 
35 a posizione in tabella). 

Ad ognuno dei comandi (35 da 
AND a NEW) corrisponde una rou¬ 
tine che contiene la sequenza di 
istruzioni necessarie per l’esecuzio¬ 
ne del comando stesso; ognuna di 
queste routine sarà caratterizzata 
dal suo indirizzo, che definisce il 
punto a partire dal quale, nell’area 
ROM, è scritta la routine stessa. 

A lato della CTB è memorizzata, a 
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s A OSE 

CTB 


ROM 

END 


POR 


NEXT 


NEW 



Figura 1. 

Diagramma di flusso 
dell'interprete standard. 



ECAR 

ROM 


Preleva lindi- 
ri *jo «crltlo 
alla 2 * (A 12») 
«•ima potutone 
delia Tab. Indir. 
&AOT0 t... 


... tonalo 
nello atack. 


Eteflul 

RTS 




RTS 




»... 


ROUTINE 

COMANDO 

ROM 


Esegui la 

routine. 




RTS 



S A00C 

AOTB 


ROM 

(Indir. END)-1 


(Indir. FORJ-1 


(Indir. NEXT)-1 


(indir. NEW)-1 



partire dalla locazione $A00C, la 
“Tabella degli Indirizzi” (ADTB; si 
veda la figura 3) dove, in modo se¬ 
quenziale e nello stesso ordine con 
cui i comandi sono memorizzati nel¬ 
la CTB, sono riportati gli indirizzi di 
partenza delle singole routine relati¬ 
ve alle parole chiave. 

Dopo aver eseguito la tokenizzazio- 
ne, la WSR salta alla routine “Ese¬ 
gui uno Statement” (ESR), puntata 
dal vettore $0308. 

Questa routine: 

1) carica nell’accumulatore A il co¬ 
dice del comando da eseguire (ad 
esempio 128 se END, 129 se POR, 

2) esegue la routine “Esegui il Co¬ 
mando in A” (ECAR); 

3) salta alla routine “Esegui il Pros¬ 
simo Statement” (ENSR). 

La routine ECAR ha il compito di 
prelevare dalla ADTB. in funzione 
del valore memorizzato in A, l'indi¬ 
rizzo della routine interessata (se A 
= 128, preleva l’indirizzo scritto nel¬ 
le prime due posizioni della tabella, 
corrispondente al comando END; 
se A = 129, preleva l’indirizzo scrit¬ 
to nelle seconde due posizioni della 
tabella, corrispondente al comando 
FOR e cosi via), quindi di saltare ad 
eseguire la routine scritta all’indiriz¬ 
zo appena prelevato, ovvero di an¬ 
dare a svolgere la sequenza di istru¬ 
zioni che definisce il comando stes¬ 
so. Una volta eseguito il comando, il 
controllo passa alla ENSR che con¬ 
trolla: 

1) se è stato premuto il tasto STOP 
(in tal caso arresta l’esecuzione della 
linea); 

2) se è stata raggiunta la fine della 
linea (in tal caso è finita l’esecuzione 
della linea); 

3) se è stata raggiunta la fine dello 
statement (carattere separatore 

44 . 44 ^ 

In quest’ultimo caso si risalta alla 
WSR per l’esecuzione di un nuovo 
statement. 

Resta soltanto un’ultima precisa¬ 
zione; si sarà notato (figura 3) che la 
Tabella degli Indirizzi ADTB con¬ 
tiene in realtà l’indirizzo della routi- 
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ne diminuito di uno. Questo è dovu¬ 
to al modo in cui termina la routine 
ECAR; essa, infatti, carica nello 
stack l’indirizzo della tabella e ter¬ 
mina con l’istruzione Assembly 
RTS. 

Questa istruzione (RETURN 
from Subroutine) esegue un salto al¬ 
l’indirizzo contenuto in quel mo¬ 
mento in cima allo stack, incremen¬ 
tato di uno. Ovvio dunque che se si è 
in precedenza forzato nello stack 
l’indirizzo cui si vuole effettuare il 
salto meno uno, il salto avverrà al¬ 
l’indirizzo esatto. 


L’aggiunta dei nuovi comandi 

La soluzione qui proposta per ag¬ 
giungere comandi personalizzati al 
BASIC originale si basa sull’idea di 
impiegare i nomi dei comandi stan¬ 
dard, già memorizzati nella Tabella 


CTB, anche per i nuovi comandi: 

ti ultimi si distinguono dai pri¬ 
mi solo per l’aggiunta, alla fine del 
nome, del carattere di differenzia¬ 
zione “&”. 

Unica regola di sintassi da rispettare 
è che fra il nome e il simbolo 
non devono essere interposti altri 
simboli che non siano blank. 
Esempio di nomi leciti per un nuovo 
comando: 

END&, FOR&, NEW&, 
INPUT#&,... 

Questo vincolo nell’attribuzione dei 
nomi ai nuovi comandi ha l’incon¬ 
veniente di costringere l’utente a 
compilare una tabella di equivalen¬ 
za [ vecchio comando + “&” ] = 
nuovo comando, che potrà essere 
consultata in fase di programmazio¬ 
ne (esempio: END& = HPLOT; 
FOR& = VPLOT; ...). 


Si tratta in realtà dnun inconve¬ 
niente molto lieve, se si pensa che lo 
stesso problema esiste ad esempio 
per l’abbreviazione dei comandi (? 
= PRINT,...), per il codice dei colo¬ 
ri (0 = BLACK, ...), ecc.. Esisterà 
semplicemente una tabella in più da 
consultare. 

A fianco di questo piccolo inconve¬ 
niente c’è invece il grosso vantaggio 
di consentire una modifica estrema- 
mente semplice dell’interprete stan¬ 
dard. 

Grazie infatti a questo vincolo, è 
possibile utilizzare la stessa ToKeni- 
sation Routine TKR e la stessa Ta¬ 
bella dei Nomi CTB dell’interprete 
standard. 

È invece necessario sostituire la vec¬ 
chia ESR (Esegui uno Statement) 
con la nuova &ESR e scrivere ovvia¬ 
mente una nuova tabella &ADTB 




701 

; lablc of keyword 




207 

; address table for BASIC comniand 



702 

; sanie sequence as address table TA00C 




204 

; address 

- 1 used since routine reached via RTS 



707 





205 





A09E 

454EC4 

304 

TA09E • BY 'E. N. D + S 80 


A00C 

70A8 

206 

TA00C 

• w 

WA83I-I 

END 

AOAI 

464FD2 

705 

• BY ’F. ’O. ’R + S 80 


A00E 

4IA7 

207 


• w 

W A 742-1 

FOR 

A0A4 

4E4558 

706 

• BY 'N, 'E. X, T + S 80 


A010 

IDAD 

208 


• w 

WADIE-I 

NEXT 

A0A8 

444154 

707 

• BY ’D. ’A. T. 'A + S 80 


A0I2 

F7A8 

209 


• w 

NVA8F8-I 

DATA 

AOAC 

494E50 

708 

• BY 1. 'N. T. ’U, T. # + S 80 


A0I4 

A4AB 

210 


• w 

WABA5-I 

INPUT# 

A0B2 

494E50 

709 

• BY ’l. 'N, ’P. 'U. T + S80 


A0I6 

BEAB 

211 


• w 

WABBF-I 

INPUT 

A(IB7 

4449CD 

710 

• BY ’D. ’l. ’M + S 80 


A0I8 

80B0 

212 


• w 

WB08I-I 

DIM 

AOBA 

524541 

711 

• BY ’R. ’E. 'A. ’D +S 80 


A0IA 

05AC 

217 


• w 

WAC06-I 

READ 

AOBE 

4C45D4 

712 

• BY ’L. 'E, ’T + S 80 


A0IC 

A4A9 

214 


• w 

VVA9A5-I 

I.ET 

ACCI 

4741-54 

717 

• BY ’G. 'O, ’T 'O. + S 80 


AOIE 

9FA8 

215 


• w 

WA8A0-1 

GOTO 

AOCS 

5255CE 

714 

• BY ’R. ’U, ’N +S80 


A020 

70A8 

216 


• w 

WA87I-I 

RUN 

A0C8 

49C6 

715 

• BY ']. ’F + S 80 


A022 

27A9 

217 


• w 

WA928-I 

IF 

AOCA 

524557 

716 

• BY R. ’E. ’S. ’T. 'O. ’R. ’E + S 80 


A024 

ICA8 

218 


• w 

WA8ID-I 

RESTORE 

AODI 

474F57 

717 

• BY ’G. ’O. 'S. ’U. 'B + S 80 


A026 

82A8 

219 


• w 

WA883-I 

GOSUB 

A0D6 

524554 

718 

• BY ’R. 'E. 'T. 'U. 'R. ’N + S 80 


A028 

DIA8 

220 


• w- 

WA8D2-I 

RETURN 

Anne 

5245CD 

719 

• BY ’R. ’E. 'M + S 80 


A02A 

3AA9 

221 


• w 

WA93B-I 

REM 

AODF 

57544F 

720 

• BY 'S. ’T. ’O. ’P + S 80 


A02C 

2EA8 

222 


• w 

WA82F-I 

STOP 

A0E3 

4FCE 

721 

• BY 'O. ’N + S 80 


A02E 

4AA9 

223 


• w 

WA94B-I 

ON 

A0E5 

574149 

722 

• BY ’W. ’A. '1. ’T + S 80 


A070 

2CB8 

224 


• w 

WB82D-I 

WAIT 

ADE*) 

4C4F4I 

727 

• BY 'L. 'O. 'A. ’D + $ 80 


A072 

67EI 

225 


• w 

WE168-1 

LO AD 

AOED 

574156 

724 

• BY 'S. 'A. ’V. ’E +S 80 


A034 

55EI 

226 


• w 

WE156-1 

SAVE 

ADE 1 

564552 

725 

• BY ’V. ’E, ’R. ’I.'F. ’Y +S 80 


A076 

64EI 

227 


• w 

VVEI65-I 

VERIFY 

A0F7 

4445C6 

726 

• BY 'D. ’E. 'F + S 80 


A078 

B2B7 

228 


• w 

VVB3B3-I 

DEE 

AOIA 

50414 lì 

727 

• BY ’P. ’O. ’K. ’E + S 80 


A07A 

27 B8 

229 


• w 

WB824-I 

POKE 

AOFE 

505249 

728 

• BY ’P. ’R. 1. ’N, 'T. # + S 80 


A07C 

7FAA 

230 


• w 

WAA80-I 

PRINT# 

A104 

505249 

329 

• BY ’P. ’R. 1, ’N. 'T +S 80 


A07E 

9FAA 

231 


• w 

WAAA0-I 

PRINT 

A109 

474F4E 

770 

• BY ’C. ’O. ’N. T + S 80 


A040 

56A8 

232 


• w 

WA857-I 

CONT 

AIOD 

4C4957 

771 

• BY ’L. 1. 'S. ’T +S 80 


A042 

9BA6 

233 


• w 

WA69C-I 

LIST 

AHI 

474CD2 

772 

• BY 'C. ’L. ’R + $80 


A044 

5DA6 

234 


• w 

WA65E-1 

CLR 

Al 14 

434DC4 

333 

• BY ’C. ’M. ’D + S 80 


A046 

85AA 

235 


• w 

WAA86-I 

CMD 

Al 17 

5759D7 

774 

• BY ’S, ’Y. ’S + S 80 


A048 

29EI 

236 


• w 

WEI2A-I 

SYS 

AIIA 

4F5045 

775 

• BY ’O. ’P. ’E. ’N + $ 80 


A04A 

BDF.I 

237 


• w 

WEIBE-I 

OPEN 

Al IE 

434C4F 

776 

• BY ’C. ’l.. ’O. ’S. ’E + $ 80 


A04C 

C6EI 

238 


• w 

VVEIC7-I 

CLOSE 

A127 

4745D4 

777 

• BY ’G. ’E. ’T + S 80 


A04E 

7AAB 

239 


• w 

WAB7B-I 

GET 

A126 

4E45D7 

778 

• BY ’N. ’E. ’W + S 80 


A050 

4IA6 

240 


• w 

VVA642-I 

NEW 

Figura 2. Tabella dei Comandi CTB 


Figura 

3. Tabella standard degli Indirizzi 

(da “ 

Il S.O. de! CBM 64" della EVM). 


(da "Il 

S.O. de! CBM 64 

’ della EVM). 
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contenente gli indirizzi delle routine 
dei nuovi comandi, che si affianchi 
alla ADTB già esistente in ROM per 
i comandi originali (si veda il nuovo 
diagramma di flusso di figura 4). 
La nuova &ADTB viene memoriz¬ 
zata nell’area RAM “fantasma” po¬ 
sta in parallelo alla ROM, a partire 
dallo stesso indirizzo $A00C. 

Il compito della nuova &ESR è 
quello di controllare se al termine 
dei nomi dei comandi standard sia o 
no presente il carattere se la 
risposta è negativa, si procede come 
previsto dall’interprete originale; se 
la risposta è affermativa, si abilita la 
RAM “fantasma” (e per conseguen¬ 
za si disabilita la ROM), in modo 
che la routine ECAR (Esegui il Co¬ 
mando in A) vada a consultare la 
nuova tabella &ADTB invece della 
vecchia ADTB e quindi salti ad ese¬ 
guire il nuovo comando al posto del 
vecchio. 

La ECAR da eseguire in caso di 
nuovo comando deve risiedere in 
RAM, essendo disabilitata in tal ca¬ 
so la ROM; per questo motivo la 
parte fondamentale della ECAR è 
stata ricopiata in RAM a partire dal¬ 
la locazione $A052 e compare col 
nome di &ECAR in figura 4. 

Le routine relative ai nuovi comandi 
possono, come già detto in prece¬ 
denza, essere scritte nell’area RAM 
“fantasma”, in modo da non limita¬ 
re in alcun modo la memoria a di¬ 
sposizione dell’utente. 

Ultimata l’esecuzione del nuovo 
comando, la &ESR riabilita l’area 
ROM (disabilitando per conseguen¬ 
za la RAM) ed esegue il normale 
salto alla ENSR (Esegui il Prossimo 
Statement). 

La nuova &ESR è stata memorizza¬ 
ta a partire dalla locazione $C000, in 
modo che sia indipendente dal ban¬ 
co di memoria selezionato (RAM o 
ROM). Essendo quest’ultima routi¬ 
ne puntata dal vettore $0308, è suffi¬ 
ciente modificarne il contenuto per 
abilitare il nuovo interprete. La rou¬ 
tine scritta a partire dalla locazione 
$C051 esegue questa abilitazione (si 
veda il disassemblato in figura 6). 




647; standard warm 

start routine (BASIC Interpreler) 



64X : 




A4X3 

2060 A 5 

649 

JSR 

SA560 

; gei statement into thè input buffer 

A4X6 

X67A 

650 

STX 

Z7A 

; move beginning of line address 

A4XX 

X47B 

651 

STY 

Z7B 

; to current character address 

A4XA 

207300 

652 

JSR 

X0073 

; gel next charactcr of statement 

A4XD 

AA 

653 

TAX 



A4XE 

F0F0 

654 

BEQ 

BA480 

; skip statement if end of line 

A490 

A2FF 

655 

LDX 

SFF 


A492 

X63A 

656 

STX 

Z3A 

set Run/Direct switch to Direct 

A494 

9006 

657 

BCC 

BA49C 

if no line number 

A496 

2079A5 

65X 

JSR 

SA579 

cncode keywords in statement 

A 499 

4CEIA7 

659 

JMP 

JA7EI 

and go execute statement 



1123; execute next statement 




1124; 




A7AE 

202CAX 

II25JA7AE 

JSR 

SAX2C 

check Stop Key 

A7BI 

A57A 

1126 

EDA 

Z7A 


A7B3 

A47B 

1127 

LDY 

Z7B 

gel ptr to end of old statement in AY 

A7B5 

C002 

II2X 

CPY 

S02 


A7B7 

EA 

1129 

NOP 



A7BX 

F004 

1130 

BEQ 

BA7BE 

if noi direct mode 

A7BA 

X53D 

1131 

STA 

Z3D 

sture pointer for possible CONT 

A7BC 

X43E 

1132 

STY 

Z3E 


A7BE 

A000 

II33BA7BE 

LDY 

soo 


A7C0 

BI7A 

1134 

EDA 

(Z7A). Y 

gel last byte 

A7C2 

D043 

1135 

BNE 

BAX07 

if noi 0. check for 

A7C4 

A002 

1136 

LDY 

$02 


A7C6 

BI7A 

1137 

LDA 

(Z7A). Y 

gel high of pointer to next statement 

A7CX 

IX 

II3X 

CLC 



A7C9 

D003 

1139 

BNE 

BA7CE 


A7CB 

4C4BAX 

1140 

JMP 

JAX4B 

0 = end of program 



1141 ; 




A7CE 

ex 

II42BA7CE 

INY 



A7CF 

BI7A 

1143 

LDA 

(Z7A). Y 

move statement # into Z39/Z3A 

A7DI 

X539 

1144 

STA 

Z39 


A7D3 

ex 

1145 

INY 



A7D4 

BI7A 

1146 

LDA 

(Z7A). Y 


A7D6 

X53A 

1147 

STA 

Z3A 


A7DX 

9X 

II4X 

TYA 


advance pointer over statement header 

A7D9 

657A 

1149 

ADC 

Z7A 


A7DB 

X57A 

1150 

STA 

Z7A 


A7DD 

9002 

1151 

BCC 

JA7EI 


A7DF 

E67B 

1152 

INC 

Z7B 


A7EI 

6C0X03 

II53JA7EI 

11 . 

JMP 

(X030X) 

go execute a statement (normally A7E4) 



1155 : execute a statement 



1 — 

1156; 




A7E4 

207300 

1157 

JSR 

X0073 

gei next charactcr 

A7E7 

20EDA7 

II5X 

JSR 

SA7ED 

execute command in A 

A7EA 

4CAEA7 

1159 

JMP 

JA7AE 

go execute next statement 



1161 ; execute command in A 




1162: 




A7ED 

F03C 

1163SA7ED 

BEQ 

BAX2B 

if Z = 1. return (dummy statement) 

A7EF 

E9X0 

II64JA7EF 

SBC 

SXO 

if A < SXO 

A7F1 

9011 

1165 

BCC 

BAX04 

perforili I.ET 

A7F3 

C923 

1166 

CMP 

$23 

if A = > A3 (highest command) 

A7F5 

BOI 7 

1167 

BCS 

BAX0E 

then check for GOTO 

A7F7 

0A 

II6X 

ASL 

A 

get 2 ★ (A - X0) as index to table 

A7FX 

AX 

1169 

TAY 


, 

A7F9 

B90DA0 

1170 

LDA 

TAOOC + 






I.Y 

move routine address unto stack 

A7FC 

4X 

1171 

PHA 



A7FD 

B90CA0 

1172 

LDA 

TAOOC. Y 


AX00 

4X 

1173 

PHA 



AXOI 

4C7300 

1174 

JMP 

X0073 

get first citar of parameters and go 


Figura 5. Disassemblato delle routine standard 
(da “Il S.O. de! CBM 64“ della EVM). 
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Un’ultima precisazione riguarda 
l’indirizzo da scrivere nella tabella 
&ADTB in corrispondenza dei nuo¬ 
vi comandi non utilizzati; si tratta 
dell’indirizzo della routine &SYE, 
che ha il compito di segnalare’un 
SYNTAX ERROR in caso di chia¬ 
mata di un nuovo comando inesi¬ 
stente. 

La &SYE è stata scritta a partire 
dalla locazione $C03F. 

In definitiva, le operazioni da ese¬ 
guire per attivare i nuovi comandi 
possono così riassumersi: 

1) scrivere, a partire da $C000, le 
routine &ESR, &SYE e di abilita¬ 
zione; 

2) riempire la nuova tabella 
&ADTB con l’indirizzo della routi¬ 
ne &SYE; 

3) ricopiare, a partire da $A052, la 
parte essenziale della ECAR per co¬ 
stituire la nuova &ECAR; 

4) scrivere le routine relative ai nuo¬ 
vi comandi nell’area RAM $A061- 
$BFFF; 

5) scrivere nella &ADTB l’indirizzo 
delle nuove routine di cui al pun¬ 
to 4), in corrispondenza dei nuovi 
comandi; 

6) abilitare il nuovo interprete tra¬ 
mite SYS 49233. 


Newcom: un esempio 
di applicazione 

Il programma Newcom, scritto in 
BASIC, è un esempio di come si 
possano gestire i nuovi comandi. 
Questo programma consente di ca¬ 
ricare, una dietro l’altra, nell’area 
RAM $A061-$BFFF le routine rela¬ 
tive ai nuovi comandi personalizza¬ 
ti; provvede alle modifiche dell’in¬ 
terprete standard, secondo quanto 
previsto nel paragrafo precedente e 
attiva i nuovi comandi stessi. 

Ciò che è necessario conoscere sono 
le routine dei nuovi comandi che 
devono essere scritte, una alla volta, 
sotto forma di frasi DATA in coda 
al programma; ogni volta che si ag¬ 
giunge una nuova routine, il pro- 




— 

Routine &ESR - Esegui uno statement (vector addr. $0308) 

cooo 

JSR 

S0073 

Prendi il prossimo carattere 

C003 

PHP 


e salvalo, insieme ai “flags”. 

C004 

PHA 


nello stack (codice comando). 

C005 

LDX 

S7A 

Indirizzo carattere corrente 

C00 7 

LDY 

S7B 

in X, Y. 

C009 

JSR 

$0073 

Prendi il prossimo carattere 

COOC 

CMP 

# S26 

e confrontalo con 

COOE 

BEQ 

SCO 1C 

Se = “&” (nuovo comando) vai a ... SCOIC 

CO IO 

STX 

$7A 

altrimenti ripristina in S7A. S7B 

CO 12 

STY 

S7B 

l’indirizzo del carattere precedente: 

CO 14 

PLA 


riprendi il codice comando e 

CO 15 

PLP 


i relativi “flags"; 

CO 16 

JSR 

SA7ED 

esegui il comando in A; 

CO 19 

JMP 

SA7AE 

esegui il prossimo statement. 

COIC 

PLA 


Riprendi il codice comando e 

C01D 

PLP 


i relativi “flags". 

COI E 

JSR 

SC02A 

Abilita RAM da SA000 a SBFFF. 

C02I 

JSR 

SA052 

Esegui il comando in A. 

C024 

JSR 

$C038 

Abilita ROM da SA000 a SBFFF. 

C027 

JMP 

SA7AE 

Esegui il prossimo statement. 

C02A 

PHA 


Subroutine abilitazione RAM 

Salva l’accumulatore nello stack. 

C02B 

SEI 


Disabilita Interrupt. 

C02C 

LDA 

SOI 

Salva il contenuto della porta I/O 

C02E 

STA 

SC045 

in $C045. 

C03I 

AND 

# SFE 

Azzera il bit “0” dell’accumulatore. 

C033 

STA 

SOI 

Memorizza A nella porta I/O. 

C035 

CLI 


Riabilita Interrupt. 

C036 

PLA 


Riprendi il contenuto dell'accumulatore. 

C037 

RTS 


Ritorna. 

C038 

PHA 


Subroutine abilitazione ROM 

Salva l’accumulatore nello stack. 

C039 

SEI 


Disabilita Interrupt. 

C03A 

LDA 

$0)45 

Recupera il valore originale della porta I/O 

C03D 

BNE 

SC033 

c salta a ... $0033. 

C03F 

JSR 

SC038 

Routine &SYE (SYNTAX ERROR) 

Abilita ROM da SA000 a SBFFF 

C042 

JMP 

SAF08 

c ... SYNTAX ERROR. 

C045 

00 


Registro memor. contenuto porta I/O. 

C05I 

SEI 


Routine abilitazione nuovo interprete 

Disabilita Interrupt. 

C052 

LDA 

# SOO 


C054 

STA 

S0308 


C057 

LDA 

# SCO 

SC000 in S0308, $0309. 

C059 

STA 

$0309 


C05C 

CLI 


Riabilita Interrupt. 

C05D 

RTS 


Ritorna. 

A052 

SBC 

# S80 

Routine &ECAR - Esegui comando in A (RAM) 

Sottrai 128 al codice in A; 

A054 

ASL 


moltiplica per 2 (A = 2 ★ (A — 128)). 

A055 

A056 

TAY 

LDA 

SAOOD. Y 

Carica nello stack 

A059 

PHA 


l’indirizzo del comando 

A05A 

LDA 

SAOOC, Y 

da eseguire. 

A05D 

A05E 

PHA 

JMP 

$0073 

Prendi il prossimo carattere ed esegui. 

Figura 6. Disassemblalo delle nuove routine. 
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gramma va ovviamente salvato su 
supporto esterno, affinché il nuovo 
comando resti memorizzato nel pro¬ 
gramma. 

Le frasi DATA relative alle routine 
dei nuovi comandi devono rispetta¬ 
re alcune regole: 

1) la prima informazione DATA de¬ 
ve essere il nome mnemonico del 
nuovo comando (massimo 7 carat¬ 
teri, primo carattere letterale); 

2) l’ultima informazione DATA de¬ 
ve essere il carattere 

Anche il modo di scrivere le routine 
deve soggiacere ad alcuni vincoli, 


Listato 1. // programma principale. 

0 rem ******************************* 


1 REM * * 

2 REM **** NUOVI COMANDI 'BASIC' **** 

3 REM **** PER C.64 **** 

4 REM * * 

5 REM * DI * 


6 REM * MAURIZIO PAOLINELLI * 

7 REM * VIA MAGELLANO,15 * 

8 REM * 20094 CORSICO MI * 

9 REM * TEL. (02)4407707 * 

1 0 REM* * 

11 REM******************************* 

18 POKE53281 , 1 4 SPRINT"[<1BLK>]"SPRINT"[<1 
CLR>]"SPC(17)"NEWCOM[<6CRSR D>]" 

19 PRINTTAB(12)"ATTENDI, PREGO!" 

20 DIMCN$(35),CS$(35),A(35),AD(35) 

2 5 FORI = 1T03 5 s READCS?(I) s NEXT SREM* * * 

LEGGI NOMI COMANDI STD. 

51 REM***SPAZIO DISPONIBILE PER LA DEF. 

85 REM***DEL CODICE NUOVI COM.[A(I)=1,... 
35] 

100 FORI = 1T035 sIFA(I)=0THENN=I-1sl = 35 
105 NEXTsREM***N=N.RO COMANDI IN OPERA 
110 IFN=OTHENPOKE836,97 sPOKE837,1 60 sGOTOl 
70 

114 REM** *SCRIVI NUOVA ROUTINE 'ESEGUI 

UNO STATEMENT'. 

115 FORI = 491 52T04 92 45 s READMs POKEI,Ms NEXT 

119 REM***SCRIVI NUOVA ROUTINE 'ESEGUI 

COMANDO IN A' 

120 POKE41 042,233s POKE41 043,1 28 

125 FORI=42999T043011sPOKEI-1955,PEEK(I)s 
NEXT 

129 REM**‘SCRIVI ROUTINES NUOVI COMANDI 

DALLA LOCAZ. 41057 

130 1=41056sAD(1)=1+1sFORH=lTON 

134 REM***LEGGI NOME NUOVO COMANDO 

135 READCNS(A(H))sIFASC(LEFT$(CN$(A(H)),1 
))<65THEN41 0 

140 1 = 1 + 1 sREADA$ sIFA$<>"*"THENPOKEI,VAL(A 
$)sGOTOl40 

145 AD(H+l)=1s1=1-1sNEXT 

149 REM**‘RIEMPI NUOVA TAB. INDIRIZZI 


al Newcom sotto il nome di BEEP. 
Ciascuno potrà inventare e proget¬ 
tare i comandi che riterrà più idonei 
per soddisfare le proprie esigenze. 
A questo punto non resta che digita¬ 
re il programma e lanciarlo; la sua 
esecuzione e i pochi commenti che 
seguono dovrebbero essere più che 
sufficienti per la comprensione del 
suo funzionamento. 

Inizialmente vengono eseguite le 
modifiche all’interprete standard 
descritte ai punti 1), 2), 3) del para¬ 
grafo precedente. 

Viene poi visualizzata la tabella del- 


CON INDIRIZZO SYNTAX ERROR 
150 FORI = 40972TO41 040STEP2:POKEI,62 :POKEI 
+1,192:NEXT 

154 REM***DEF.INDIRIZZI NUOVE ROUTINES 

NELLA NUOVA TAB. INDIRIZZI 

155 FORI=lTON:HB=INT((AD(I)-1)/256):LB=AD 
(I)-1-256*HB 

I 60 AC=4 097 0+2*A(I):POKEAC,LB:POKEAC+1,HB 
: NEXT 

162 HB=INT((AD(N+l))/256):LB=AD(N+1)-256* 
HB:POKE836,LB:POKE837,HB 

164 REM**‘ABILITA NUOVA ROUT. 'ESEGUI 

UNO STATEMENT' 

165 SYS4 9233 :M=0 

169 REM*“STAMPA ELENCO NUOVI COMANDI 

170 PRINT"[<1CLR>]"SPC(17)"NEWCOM[<2CRSR 
D>] " 

175 FORI = l TOl 7 :IFCN$(I)=""THENCN$(I)="... 

II 

1 80 IFCN$(1 + 18)=""THENCN$(1 + 18)=" ..." 

185 PRINTMIDS(STR$(I),2,2);TAB(2)"."CS$(I 

190 PRINTTAB(11)"_"LEFT$(CN$(I),7);TAB(21 

) ; 

195 PRINTRIGHT$(STR$(1 + 18) ,2)" ."CS$(1 + 18) 

200 PRINTTAB(31)"_"LEFT$(CN$(1+18),7):NEX 
T:IFCN$(18)=""THENCN$(18)=" ..." 

205 PRINT"18.ON& _"LEFT$(CN$(18),7) 

210 PRINT"[<1CRSR D>INUMERÒ COMANDO DA AG 
GIUNGERE" 

215 INPUT"(0 PER NON AGGIUNGERE COM.)";C: 
REM***C=COD. NUOVO COMANDO 
220 IFC=0ANDN=0THEN3 60 : REM**‘NESSUN NUO¬ 
VO COMANDO 

225 IFC=0THEN375:REM***NUOVI COMANDI 

ATTIVATI 

230 IFC<OORC>35THENPRINT"[<12CRSR L>] 

[<4CRSR U>]":GOT0210 
235 FORI=lTON:IFA(I)=CTHENM=I 
240 NEXT:REM***M=COD. COM. DA SOST. 

245 IFM=0THEN385:REM**‘CODICE LIBERO 
250 PRINT"[<1CLR>]"SPC(17)"NEWCOM[<6CRSR 
D>] " 

255 PRINT"STAI PER SOSTITUIRE IL COMANDO: 

[<1CRSR D>]" 


affinché i nuovi comandi possano 
essere gestiti dal Newcom. 

Dato che non si conosce a priori 
dove le varie routine saranno alloca¬ 
te, queste dovranno essere scritte in 
modo da poter essere rilocate. Inol¬ 
tre tutte le routine devono tassativa¬ 
mente terminare con un RTS. 
Alcuni spunti per la creazione di co¬ 
mandi relativi alla grafica in alta ri¬ 
soluzione si possono trovare in Bit 
Dicembre ’83. 

Un esempio di nuovo comando, che 
consente l’emissione di un impulso 
sonoro, è inoltre riportato in fondo 


79 





















Come aggiungere 
nuovi comandi BASIC 
al C 64. 


Seguito listato 1. 

260 PRINTMID$(STR$(M),2,2);TAB(2)"."CS$(A 
(M))"«, _ "LEFT$ (CN$ ( A (M) ) ,7) 

265 INPUT"[<2CRSR D>]SEI D'ACCORDO (S/N)" 
j A$ 

2 70 IFA$<>"S"ANDA$ < >"N"THEN2 65 
275 IFA$="N"THENl70 

2 76 PRINT"[<1CLR>]"SPC(17)"NEWCOM[<6CRSR 
D>] " 

277 PRINTTAB(12)"ATTENDI, PREGO!" 

279 REM**‘CANCELLA I 'DATA' DEL COMANDO 

DA SOSTITUIRE 

280 POKE834,M:POKE835,C:RESTORE 

2 81 HB=INT((AD(M))/2 56) :LB=AD(M)- 256*HB:P 

OKE836,LB:POKE837,HB 

285 READA$ : IFA$OCN$ (A(M) ) THEN285 

290 POKE832,PEEK(63):POKE833,PEEK(64) 

293 REM***Ll=PRIMA LINEA DA CANCELL. 

Ni=ADDRESS NEXT LINE 

294 REM***L2 =PRIMA LINEA DA SALVARE 

2 95 LI=PEEK(63)+256*PEEK(64): Ni =PEEK(65) + 
256*PEEK(66) 

296 I=LEN(CN$(A (M) )) 

297 IFPEEK (Nl-I)Ol 3lTHENI = I + l :G0T0297 

298 Ni=Nl-I-5 

300 HB=INT(Nl/256):LB=N1-256*HB 

30 5 POKE828,LB:POKE829,HB: IFM=NTHENPOKE83 

0,0:POKE831,0:GOTO320 

310 READAS : IFA$OCN$ ( A (M+l ) )THEN310 

315 POKE830,PEEK(63):POKE831,PEEK(64) 

320 PRINT"[<1CLR>][<2CRSR D>j"Li :PRINT"GO 




TO 330(<1HOME>]"; 

32 5 POKE631,13:POKE632,l3:POKEl 98,2:END:R 
EM**‘CANCELLA 

330 Ni =PEEK (828) +256*PEEK (829) :Ll=PEF.K(Nl 
+3)+2 56*PEEK(Ni +4) 

335 L2=PEEK(83 0)+256‘PEEK(831 ) : IFLl =L2THE 
N342 

340 GOTO320 

342 M=PEEK(834):C=PEEK(835):GOTO500 

34 5 Li=PEEK(83 2)+256*PEEK(833) :L2 = PEEK(83 

0)+2 56*PEEK(831) 

350 GOSUB450:PRINT"(<1RVS>13.[<1RVS OFF 
>] I NUMERI DI LINEA UTILI SONO" 

352 L2$=STR$(L2-1):IFL2=0THENL2$=" - " 

355 PRINT" DA"Ll"A"L2$".":GOSUB485:END 

359 REM*“NESSUN NUOVO COMANDO 

360 PRINT"(<1CLR>)"SPC(17)"NEWCOM(<6CRSR 
D>] " 

365 PRINT"NESSUN NUOVO COMANDO ATTIVATO!" 
370 PRINT"RILANCIA IL PROGRAMMA CON UN ’R 
UN'.": END 

374 REM**‘NUOVI COMANDI ATTIVATI 

375 PRINT"[<1CLR>]"SPC(17)"NEWCOM[<6CRSR 
D> ] " 

380 PRINT"NUOVI COMANDI ATTIVATI!":NEW:EN 
D 

384 REM***AGGIUNTA NUOVO COMANDO 

385 GOTO510 

387 GOSUB4 50 :GOSUB4 85 

390 PRINT"(<3CRSR D>)PREMI 'RETURN' PER C 

ONTINUARE":POKEl98,0 

395 GETA$ : IFA$OCHR$ ( 1 3) THEN395 
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Come aggiungere 
nuovi comandi BASIC 
al C 64. 


Seguito listato 1. 

400 PRINT"[<1CLR>]":LIST650-: END 

410 PRINT"[<1CLR>1"SPC(17)"NEWCOM[<6CRSR 

D> ] " 

415 PRINT"NOME NON AMMESSO PER LA ROUTINE 
"CN$(A(H)) 

420 PRINT"[<1CRSR D>]IL PRIMO CAR. DEVE E 
SSERE LETTERALE.":END 

449 REM* * * ISTRUZIONI 

450 PRINT"[<1CLR>]"SPC(17)"NEWCOM[<6CRSR 
D>] " 

455 PRINT"AGGIUNGI I 'DATA' DELLA SUBROUT 
INE DEL" 

460 PRINT"NUOVO COMANDO." 

465 PRINT"[<1RVS>]1.[<1RVS OFF>) IL PRI 
MO 'DATA' DEVE ESSERE" 

470 PRINT" IL NOME DEL NUOVO COMANDO" 
475 PRINT" (7 CAR.MAX.- 1[<1CHR$(190)>1 
CAR.LETTERA)." 

480 PRINT"[<1RVS>]2.[<1RVS OFF>] L'ULTI 
MO DATA DEVE ESSERE UN RETURN 

485 PRINT"[<1CRSR D>][<1RVS>]RICORDATI D 
I SALVARE IL PROGRAMMA[<1RVS OFF>l" 

490 PRINT"(<1RVS>)PRIMA DI FARLO GIRARE. 

[<1RVS OFF>]" 

492 R=PEEK(836)+256*PEEK(837) 

495 PRINT"[<1CRSR D>]LA NUOVA ROUTINE SAR 
A' MEMOR.":PRINT"DALL'INDIRIZZO"R".":RETU 
RN 

500 PRINT"[<1CLR>][<2CRSR D>]"M+50"A("MID 
$(STR$(M),2,2)")="MID$(STR$(C),2,2) 


505 PRINT"GOTO 345[<1HOME>)"; :POKE631,13: 
POKE632,13:POKEl98,2:END 

510 PRINT"[<1CLR>][<2CRSR D>)"N+51"A("MID 
$(STR$(N+1),2,2)")="MID$(STR$(C),2,2) 

515 PRINT"GOTO 387I<1HOME>)"; :POKE631,13 : 
POKE632,13:POKEl98,2:END 

549 REM***ELENCO COMANDI STD 

550 DATAEND,FOR,NEXT,DATA,INPUT#,INPUT,DI 
M,READ,LET,GOTO,RUN,IF,RESTORE,GOSUB 

560 DATARETURN,REM,STOP,ON,WAIT,LOAD,SAVE 
,VERIFY,DEF,POKE,PRINT#,PRINT,CONT 
570 DATALIST,CLR,CMD,SYS,OPEN,CLOSE,GET,N 
EW 

599 REM**‘ROUTINE NEWCOM 

600 DATA32,115,0,8,72,166,122,164,123,32, 
115,0,201,38,240,12,134 

610 DATAI 22,1 32,1 23, 1 04,40,32,237,1 67,76, 

174,167,104,40,32,42,192,32 

620 DATA82,160,32,56,192,76,174,167,72,12 

0,165,1,141,69,192,41,254 

630 DATAI 33,1,88,104,96,72,120,173,69,1 92 

,208,244,32,56,192,76,8 

64 0 DATAI 75,55,2 34,32,56,1 92,32,21 0,255,3 

2,42,192,96,120,169,0,141 

650 DATA8,3,169,192,141,9,3,88,96 

1000 DATA BEEP 

1001 DATAI 69,0,141 ,4,212,141, 5,212,141 , 6, 
212,141,2,212,169,7,141 

1 002 DATA3,212,169,34,141 ,5,21 2,169, 82,1 4 

1,1,212,169,65,141,4,212 

1003 DATA169,15,141,24,212,96,* 

READY. 


le equivalenze [ vecchio comando + 
“&” | = nuovo comando, di cui si è 
parlato in precedenza, con la situa¬ 
zione aggiornata dei nuovi comandi 
già contenuti nel Newcom (la prima 
volta che il programma verrà carica¬ 
to e lanciato la tabella non mostrerà 
alcun nuovo comando). 

L’utente viene poi invitato a sceglie¬ 
re il codice numerico da I a 35, e per 
conseguenza il nome, da attribuire 
al nuovo comando che si vuole im¬ 
mettere (esempio: 1 = END&; 2 = 
FOR&; ...). 

Se il numero è compreso fra 1 e 35, il 
programma si automodifica, memo¬ 
rizzando, nelle linee da 51 a 85, la 
presenza del nuovo comando; quin¬ 
di si arresta, visualizzando la serie di 
istruzioni da eseguire per la memo¬ 
rizzazione completa del nuovo co¬ 
mando. 

Si possono verificare due casi. 

Caso a) - Il comando prescelto non 
era ancora utilizzato in precedenza 


(si aggiunge un nuovo comando). 
Le istruzioni avvertono che è neces¬ 
sario: 

• aggiungere dopo l’ultima linea di 
programma la sequenza dei DATA 
corrispondente alla routine del nuo¬ 
vo comando; 

• salvare il programma su supporto 
esterno prima di lanciarlo. 

Caso b) - Il comando prescelto era 
già utilizzato in precedenza (si sosti¬ 
tuisce un nuovo comando ad un al¬ 
tro). 

Le istruzioni sono analoghe a quelle 
del caso a), ma c’è un vincolo da 
rispettare: 

• i numeri di linea delle frasi DATA 
relative al nuovo comando devono 
essere compresi fra un minimo e un 
massimo, indicati dalle istruzioni 
stesse. 

N.B. - Con le istruzioni viene comu¬ 
nicato anche l’indirizzo a partire dal 
quale verrà memorizzata la routine 
del nuovo comando. 


Se l’utente non vuole aggiungere 
nuovi comandi, ma semplicemente 
attivare quelli già contenuti nel 
Newcom, deve rispondere col nume¬ 
ro 0 alla domanda di scelta del codi¬ 
ce. 

In tal caso Newcom memorizza in 
sequenza le routine già registrate, a 
partire dall’indirizzo $A061, aggior¬ 
na la nuova tavola degli indirizzi 
&ADTB e quindi attiva i nuovi co¬ 
mandi mediante l’abilitazione del 
nuovo interprete. 

Infine, dopo aver annunciato l’at¬ 
tivazione dei nuovi comandi, il pro¬ 
gramma si autocancella mediante 
l’istruzione NEW, liberando com¬ 
pletamente l’arca BASIC a disposi¬ 
zione dell’utente. 

Il Newcom vuole solo essere un 
esempio abbastanza semplice di co¬ 
me si possano gestire i nuovi coman¬ 
di: ognuno potrà naturalmente scri¬ 
versi un programma che possa fare 
di più e di meglio. ■ 
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— Parte ottava — 


Le ultime istruzioni 
e un programma 
esemplificativo 


di Alessandro Guida 


A bbiamo già visto in prece¬ 
denza come si effettua 
l’addizione in linguaggio 
macchina e quale è l’istruzione ne¬ 
cessaria (ADC). 

Inoltre, si è visto che è possibile 
sommare numeri a 16 bit grazie al 
riporto (C-carry) che viene automa¬ 
ticamente aggiunto ad ogni addizio¬ 
ne. È perciò necessario azzerarlo al¬ 
la prima somma. Ad esempio, per 
sommare due numeri a 16 bit con¬ 
servati nelle locazioni $FB, FC e 
$FD,FE avremo il seguente pro¬ 
grammino: 

CLC 

LDA SFB : somma byte basso 
ADC SFD 
STA $FD 

LDA SFC : somma byte alto 
ADC $FE 
STA $FE 

Nella seconda addizione un even¬ 
tuale riporto viene aggiunto nel byte 
alto, mentre nella prima ciò non av¬ 
viene a causa del CLC (azzera 
carry). 

Come per l’addizione esiste un co¬ 
mando per la sottrazione. Il simbolo 
mnemonico è SBC e opera una sot¬ 
trazione con carry. Il suo modo di 
operare è molto simile a quello della 
addizione: infatti, il 6502 non fa al¬ 
tro che aggiungere al primo operan¬ 
do il complemento a due del secon¬ 
do più la negazione del carry. 
Quindi, se il carry è uno vi aggiunge 
zero, e viceversa. 


È importante perciò ricordarsi 
che il carry va sempre posto a uno 
(SEC) prima di una sottrazione. L’e¬ 
sempio precedente diventa: 

SEC 

LDA SFB : sottrae byte basso 
SBC SFD 
STA SFD 

LDA SFC : sottrae byte alto 
SBC SFE 
STA SFE 


Abbiamo quindi visto due nuove 
istruzioni, SBC e SEC, che non pre¬ 
sentano particolari difficoltà. Pur¬ 
troppo, invece, non ci sono istruzio¬ 
ni dirette all’esecuzione delle molti¬ 
plicazioni. 

Queste vanno calcolate per mezzo di 
algoritmi più o meno complessi, se¬ 
condo il tipo di moltiplicazione ri¬ 
chiesto. Il caso più semplice si ha 
moltiplicando due numeri interi ad 


Ta fa e 1 1 SL 


Oodicri Is-truz iori i 


Istruzione: SEC 
SBC 
JSR 
ASL 
LSR 
ROL 
ROR 


Pone il Carry a uno 

Sottrae all’accumulatore l'operando e il C 
Esegue una subroutine 
Sposta i bit a sinistra 
Sposta i bit a destra 

Ruota i bit a sinistra attraverso il Carry 
Ruota i bit a destra attraverso il Carry 


FLAG alterati: N V B D I Z C 


SEC 



X 

SBC 

X X 

X 

X 

JSR 




ASL 

X 

X 

X 

LSR 

0 

X 

X 

ROL 

X 

X 

X 

ROR 

X 

X 

X 


Modo indirizzamento 

Cod ic i 

SEC SBC 

JSR 

ASL 

LSR 

ROL 

ROR 

Imp1icato 

Accumulatore 

38 


0A 

4A 

2A 

6A 

Asso 1uto 

ED 

20 

0E 

4E 

2E 

6E 

Pagina-0 

E5 


06 

46 

26 

66 

Immediato 

E9 






Assoluto,X 

FD 


1E 

SE 

3E 

7E 

Asso 1uto ,Y 

F9 






<INO,X) 

E1 






< <INO),Y 

FI 


16 

56 

36 

76 

Pagina-0 ,X 

F5 







Pagina-0,Y 
Re 1ativo 
Indiretto 


Tabella 1. Codici e modi di indirizzamento delle istruzioni SEC, SBC, SSR, 
ASL, LSR, ROL e ROR. 
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otto bit. In questo caso, si può ridur¬ 
re l’addizione a un ciclo di somme. 
Se, ad esempio, si vuole moltiplicare 
il numero contenuto nella locazione 
$FB per quello esistente nella loca¬ 
zione $FD avremo: 


COOO LDA #$00 : 

C002 STA $FC 
C004 LDX SFB : 
C006 l.DY .$FD : 

C00S BEQ SCOIC: 
C00A DEY : 
C00B BEQ SC022: 

C00D CLC 
C00E TXA 


azzera byle alto risul¬ 
tato 

valore moltiplicando 
contatore ciclo=mol- 
liplicatore 
moltiplicatore = 0 
decrementa contatore 
termine moltiplica¬ 
zione 


C00F ADC SFB : 

COII STA SFB 
CO 13 LDA #$00 
C0I5ADCSFC : 

CO 17 STA SFC 
CO 19 .IMP SC00A: 
C0IC LDA #S00: 
COI E STA SFB : 
C020 STA SFC 
C022 RTS : 


somma al risultato il 
moltiplicando 


somma l'eventuale ri¬ 
porto 

ripete il ciclo 
se moltiplicatorc=0 
risultatilo 

fine operazione torna 
al BASIC. 


Viene utilizzata anche la locazione 
$7C, poiché il prodotto di due nu¬ 
meri ad otto bit può richiederne due 
per il risultato. 

Per dividere due numeri interi si 


opererebbe in modo analogo, sot¬ 
traendo invece di aggiungere. Vi è, 
tuttavia, un caso di moltiplicazione 
o divisione ancora più semplice. 
Moltiplicare e dividere per potenze 
di due. 

Basta osservare il seguente esempio: 
prendiamo il numero 5 in binario 

0000 0101 (5 decimale) 

e facciamo scorrere tutti i bit a sini¬ 
stra di un posto, spostando l’ultimo 
nel carry ed aggiungendo uno zero a 
sinistra, avremo: 

0 0000 1010 (10 decimale) 

abbiamo ottenuto una moltiplica¬ 
zione per 2. Ripetiamo l’esperimen¬ 
to per due volte consecutive: 

0 0001 0100 (20 decimale) 

0 0010 1000 (40 decimale) 

abbiamo moltiplicato altre due vol¬ 
te per due. Nel complesso spostando 
per tre volte a sinistra il numero ini¬ 
ziale, abbiamo avuto una moltipli¬ 
cazione per 8, ossia 213 (due alla 
terza). 

In generale si ha che per moltipli¬ 
care un numero per una potenza di 
due basta fare scorrere i bit di tale 
numero a sinistra di tanti posti 
quanto il valore dell’esponente del 
due. 

Per dividere basta far scorrere i sin¬ 
goli bit a destra. 

Esempio: 

0010 0000 (48 decimale) 

0001 1000 (24 decimale) 

Queste due operazioni di sposta¬ 
mento dei bit a sinistra e a destra 
sono svolte dalle istruzioni ASL 
(Spostamento a sinistra) e LSR 
(Spostamento a destra). 

Tutto procede perfettamente finché 
non si supera il valore 255. -Se si 
moltiplicasse il numero 136 per 2 si 
avrebbe: 


83 









































Impariamo 
il linguaggio macchina 
con il VIC 20 e il C 64 


1000 1000 (136 decimale) 

I 0001 0000 (16 decimale) 

II risultato è chiaramente sbagliato, 
poiché il bit più significativo è stato 
spinto nel carry. Il risultato richiede 
ora due byte, infatti, se consideras¬ 
simo il carry come il primo bit di un 
secondo byte avremmo 
256+16=272, cioè il giusto risulta¬ 
to. 

Fortunatamente vi sono le istruzio¬ 
ni ROL (rotazione a sinistra) e ROR 
(rotazione a destra) che operano co¬ 
me l’ASL e LSR ma introducendo 
nel primo o ultimo bit invece di uno 
zero il contenuto del carry. 

Per esempio l’operazione 240 x 8 
diventerebbe in Assembly: 

C000 LDA #$F0 : memorizza #240 
C002 STA $FB : nelle locazioni 
SFB.FC 

C004 LDA #$00 : per contenere il risul¬ 
tato 


(=>SL +ROL 



HB 

LB 


♦- 17 6 5 4 3 2 

1 0 ! <-- ICI< - 17 6 5 4 3 2 

t 0 !<--0 

1 < -ROL-- 

1 

t <-ASL— 

I 





l_ S R +ROR 



HB 

LB 


0-->!7 65432 

I 0 ! — > ! C ! >17 6 5 4 3 2 

1 0 ! <-- + 

-*LSR-> 

t — ROR-> 

! 

1 

1 




Figura 2. Effetto delle operazioni ASL+ROL e LSR+ROR su numeri a sedici 
bit. Se dopo il ROR il carry è uguale a uno, vuol dire che si è avuto un overfìow. 
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C006 STA $FC : 
C008 LDY #$03 : 

C00A ASL $FB : 

COOC ROL $FC : 

C00E DEY : 
COOF BNE SCOOA 
C01I RTS 


a 16 bit 

contatore spostamen¬ 
ti 

moltiplica per due 
byte basso 

moltiplica per due il 
byte alto 
ripete tre volte 


Le subroutine 

Per evitare di ripetere molte volte 
le stesse sequenze di comandi il BA¬ 
SIC dispone del GOSUB- 
RETURN. Il linguaggio macchina 
presenta lo stesso comando con il 
nome JSR (Jump SubRoutine). Il 
JSR deve essere sempre seguito dal¬ 
l’indirizzo di inizio della subroutine. 
Al termine della routine deve esservi 
il RTS (ReTurn from Subroutine) 
che si era già utilizzato per il ritorno 
al BASIC. 


Quando il microprocessore incontra 
l’istruzione JSR conserva il conte¬ 
nuto del contatore di programma 
nello stack e vi forza l’indirizzo della 
subroutine. Al termine viene ripreso 
il vecchio indirizzo dallo stack, ri¬ 
messo nel contatore di programma e 
incrementato per passare all’istru¬ 
zione successiva. 


Quasi tutte le routine che compon¬ 
gono il sistema operativo del C 64 e 
VIC 20, essendo chiamate in più 
punti, sono organizzate come su¬ 
broutine con un RTS finale. Ad 
esempio, la subroutine $EFD2 
provvede a inviare il carattere conte¬ 
nuto nell’accumulatore alla periferi¬ 
ca di output (di solito lo schermo). 
Così il seguente programmino stam¬ 
pa tutti i caratteri ASCII. 


C000 LDY #$20 : primo carattere 
C002 TYA : carattere da trasmet- 


C003 JSR SFFD2: 

C006 INY : 

C007 BPL SC002 : 
C009 RTS : 


(ere 

esegue la subroutinc 
di stampa 
carattere successivo 
se <128 continua 
torna al BASIC 


Indirizzamenti indiretti 


Come abbiamo più volte sottoli¬ 
neato, il pregio del linguaggio mac¬ 
china è senz’altro la sua velocità. È, 
quindi, giusto che venga applicato 


Listato 1. Programma per lo setoli dello schermo a! contrario. 

C000 

a9 

07 


Ida 

#*07 

iMemorizza in *FB,FC e *FD,FE 

C002 

85 

f c 


sta 

*f c 

:gli indirizzi di partenza 

C004 

85 

f e 


sta 

*fe 

ideila penultima ed ultima 

C006 

a9 

98 


Ida 

#*98 

ilinea della mappa dello schermo 

C008 

85 

fb 


sta 

*fb 

: 

c00a 

a9 

C0 


1 da 

#*C0 

I s 

C00C 

85 

fd 


sta 

*fd 

: 

c00e 

a2 

19 


1 dx 

#*19 >. 

iNumeró di linee dello schermo 

C010 

20 

40 

C0 

jsr 

*C040 

tRoutine di scroll 

c013 

a9 

db 


Ida 

#*db 

Memorizza gli indirizzi per la 

C015 

85 

fc 


sta 

*f c 

mappa dei colori 

C017 

85 

fé 


sta 

*f e 


C019 

a9 

98 


Ida 

#*98 


C01b 

85 

fb 


sta 

*f b 


C01d 

a9 

C0 


Ida 

#*C0 


C01f 

85 

f d 


sta 

*f d 


C02 1 

a2 

19 


1 dx 

#*19 

Numero linee 

C023 

20 

40 

C0 

Jsr 

*c 040 

Rout ine d i scroi 1 

C026 

a0 

27 


1 dy 

#*27 

■Riempie la prima linea dello 

C028 

a9 

20 


Ida 

#*20 

dello schermo di spazi 

C02a 

99 

00 

04 

sta 

*0400,y 


C02d 

88 



dey 



C02e 

10 

fa 


bp 1 

*c02a 


C030 

ad 

21 

d0 

Ida 

*d021 

■Legge colore sfondo 

C033 

a0 

27 


1 dy 

#*27 

Riempie prima linea mappa colori 

C035 

99 

00 

d8 

sta 

*d800,y 

col colore dello sfondo 

c 038 

88 



dey 



C039 

10 

fa 


bp 1 

*C035 


C03b 

60 



rts 


Torna al Basic 

c03c 

ea 



nop 



C03d 

ea 



nop 



C03e 

ea 



nop 



C03f 

ea 



nop 



C040 

a0 

27 


1 dy 

#*27 

Numero colonne 

C042 

b 1 

fb 


Ida 

<*fb),y !Legge carattere linea superiore 

c 044 

91 

f d 


sta 

<*fd),y sLo copia nella linea inferiore 

C046 

88 



dey 


Carattere successivo 

C047 

10 

f 9 


bp 1 

*c042 


c 049 

38 



sec 


Decrementa i puntatori delle due 

C04a 

a5 

fb 


Ida 

*fb il inee 

c04c 

e9 

28 


sbe 

#*28 


C04e 

85 

f b 


sta 

*fb 


C050 

a5 

fc 


Ida 

*fc 


C052 

e9 

00 


sbe 

#*00 


C054 

85 

fc 


sta 

*fc 


c 056 

38 



sec 



c 057 

a5 

fd 


Ida 

*f d 


C059 

e9 

28 


sbe 

#*28 


C05b 

85 

f d 


sta 

*fd 


C05d 

a5 

f e 


Ida 

*f e 


C05f 

e9 

00 


sbe 

#*00 


C061 

85 

f e 


sta 

*f e 


c 063 

ca 



dex 


Decrementa numero 1inea 

C064 

d0 

da 


bne 

*c 040 

Se non ha finito copia un’altra 

C066 

60 



rts 


1 inea 
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con particolare attenzione al metodo di scelta 
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Impariamo 
linguaggio macchina 
con il VIC 20 e il C 64. 


Indirizzamento indiretto indicizzato. 

LDR C ^0 1 rX > 

registro X mernoria 
♦-+ +-♦ 


j 

! 02 


! 


Indirizzo -> 

di partenza 


Ind ir izzo 
finai e 


+ - 
i 


! 12 ! 00 

; ; 

♦-+ 

; ; 

! 0E ! 

; j 

+-+ 

; | 

! A0 ! 

! ! ! 

+-+ ! 

! ! ! 

00 ! 03 <-+ 


01 +X - + 

i 

j 

! 

02 ! 


C000 <—■+ +-«■ 

! ! ! 

! + - 
i 
| 
i 
! 

+ 


- > | 


! C0 ! 04 
; ; 

+-+ 

+-♦ 

! ! 

25 ! C000 25 > A 


Figura 3a. Metodo di indirizzamento indicizzato 
indiretto. 


Indirizzamento indicizzato indiretto. 

LDPl < 1 > , "Y* 

registro Y memoria 

+ - + + - ♦ 


02 
+-+ 


Indirizzo -> 

di partenza 


! 

12 ! 00 


Ind ir izzo 
intermedio + -- 


+Y 


Ind ir izzo 
finale 


j 

00 ! - + 

; i 

+-+ ! C000 

! +-+ 

C0 ! ? ! 

! - + ! 

+-+ ! 

+-+ ! 

! C000 ! 

C0 ! <-+ 

+-+ 

| 

4F ! C001 
! 

+-+ 


+ -> 


25 ! C002 25 -> A 


Figura 3b. Metodo di indirizzamento indiretto 
indicizzato. 


dove la rapidità di esecuzione è es¬ 
senziale. 

Ad esempio, se volessimo scrivere 
una routine che esegua lo scroll del¬ 
lo schermo al contrario (verso il bas¬ 
so), non dovremmo fare altro che 
ricopiare il contenuto di ogni linea 
dello schermo sulla seguente, a par¬ 
tire dal basso verso l’alto. 

Infine, la prima linea viene sostituita 
con una vuota. Questa operazione 
deve essere eseguita due volte, una 
per la mappa dello schermo e l’altra 
per la mappa dei colori. Perché, il 
tutto avvenga istantaneamente è in¬ 
dispensabile scrivere la routine in 
linguaggio macchina (listato 1). 

In effetti, il lavoro si riduce a rico¬ 
piare due tabelle (caratteri e colori) 
quaranta locazioni di memoria do¬ 
po (equivalenti a una linea di scher¬ 
mo). 

Nonostante le istruzioni utili si sia¬ 
no già viste tutte, avremmo notevoli 
difficoltà a scrivere tale routine con i 


metodi di indirizzamento che già co¬ 
nosciamo. Infatti, con l’indirizza- 
mento assoluto, Y si può accedere a 
soli 256 elementi consecutivi mentre 
le due mappe video sono composte 
da 1.000 locazioni ciascuna. 

Per risolvere questo problema, il 
6502 è dotato di altri due tipi di 
indirizzamento: indicizzato- 
indiretto e indiretto-indicizzato. En¬ 
trambi utilizzano un registro come 
indice (come avveniva per l’assolu¬ 
to, Y), ma l’indirizzo di base anziché 
essere assoluto viene letto in due lo¬ 
cazioni consecutive in pagina zero. 
Per esempio, un indicizzato indiret¬ 
to è: 

LDA ($0I,X) 

Mentre è indiretto indicizzato: 

LDA ($01),Y 

Le figure 3a e 3b illustrano le diffe¬ 
renze tra i due tipi di indirizzamenti. 
L’indicizzato indiretto prende l’in¬ 
dirizzo finale in due locazioni conse¬ 


cutive puntate dall’indirizzo in pagi¬ 
na zero specificato, più il registro X. 
In pratica permette di scegliere in 
una tabella di indirizzi. 
NeM’indiretto indicizzato il 6502 si 
calcola l’indirizzo finale prendendo 
il contenuto della locazione in pagi¬ 
na zero specificata e della seguente, 
nell’ordine byte basso-byte alto, e vi 
aggiunge il contenuto del registro Y. 
L’indirizzamento ideale per la no¬ 
stra routine di scroll è l’indiretto in¬ 
dicizzato. Si può sfruttare, infatti, il 
registro Y per ricopiare una linea ed 
aggiornare l’indirizzo contenuto 
nelle locazioni indirette per passare 
ad un’altra linea. Per evitare di per¬ 
dere dei dati questa operazione va 
eseguita a partire dalla penultima 
linea. 

Riferitevi al listato 1 che contiene i 
codici di tale routine. 

Con ciò termina questo primo 
corso di linguaggio macchina per il 
C 64 e VIC 20. ■ 
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l’avventura 

Parte seconda- 


D 


entro 


Continua la costruzione 
del nostro Adventure 
per C 64 


di Roberto Tabacco 

P rima di riprendere il di¬ 
scorso interrotto la scorsa 
puntata penso sia bene 
chiarire e spiegare come si gioca un 
Adventure. Mi riferisco natural¬ 
mente solo agli Adventure in italia¬ 
no, quei pochi che esistono in com¬ 
mercio. 

C’é un terribile pregiudizio che sco¬ 
raggia noi autori ed è quello solito 
che si attribuisce ad un prodotto ide¬ 
ato e realizzato in Italia. Ci sono 
Adventure americani o inglesi mol¬ 
to belli e ci sono adventure america¬ 
ni o inglesi molto belli e ci sono 
adventure americani o inglesi molto 
brutti. Come in tutte le cose anche in 
questo campo si possono trovare in 
Italia Adventure veramente belli, 
costruiti bene, con una storia inte¬ 
ressante e coinvolgente. Per quanto 
mi riguarda cerco di costruire un 
Adventure pensando molto alla sto¬ 
ria ed al suo svolgimento, creando 
sorprese, momenti particolari di 
gioco e perché no, tensione! Un Ad¬ 
venture non deve essere troppo diffi¬ 
cile, ma neppure troppo facile; la 
storia non deve essere troppo origi¬ 
nale, ma neppure troppo banale. I 
vari problemi debbono avere sì una 
difficoltà di soluzione, ma chiara¬ 
mente trattandosi di un gioco che 
deve essere giocato, non debbono 
essere troppo astrusi o complicati. 

Come autore di Adventure ho 
giocato molti adventure soprattutto 
americani. Conosco lo scoramento e 
la confusione che nasce appena il 
computer ci pone i primi interroga¬ 


tivi di gioco. Diciamo la verità non 
si sa assolutamente nulla, si è com¬ 
pletamente all’oscuro di tutto. Il no¬ 
stro primo impulso sarebbe di spe¬ 
gnere il computer e lasciar perdere. 

L’avventura ci sembra troppo 
complicata e assolutamente ci rifiu¬ 
tiamo di entrare in quel particolare 
mondo. 

Il problema è che non siamo abituati 
a giocare a questo genere di gioco, 
che invece ci può riservare delle 
autentiche emozioni. Vogliono scu¬ 
sarmi gli incalliti giocatori di Ad¬ 
venture se prima di andare avanti a 
spiegare come si realizza un adven¬ 
ture cerco di spiegare come si gioca 
un adventure. Come ogni gioco ci 
sono delle regole da seguire e biso¬ 
gna conoscere la strategia. Il sempli¬ 
ce gioco dell’oca se dato a chi mai 
l’ha giocato diventa complicato. 
Ora più o meno le regole di gioco 
sono sempre le stesse, la strategia 
invece cambia ad ogni nuovo gioco. 
Fare i cruciverba impone una regola 
di gioco, semplice, ma pur sempre 
una regola. Giocare agli Adventure 
impone un metodo logico e raziona¬ 
le di gioco. Quando accendete il 
computer cd il vostro gioco inizia a 
girare, vi viene presentata una scher¬ 
mata con delle indicazioni (più o 
meno precise). Il manuale, invece, vi 
da le premesse al gioco: non sottova¬ 
lutatelo mai, leggetelo, è importan¬ 
te. Nel manuale oltre le indicazioni 
di come si gioca si possono trovare 
indizi che aiutano a giocare. 

La prima volta che si gioca si 
commette l’errore di giocare creden¬ 
do di arrivare subito dove si deve 
arrivare e non ci si cura di prendere 
delle piccole precauzioni. Ad esem- 
po carta e matita. Si ignora'la map¬ 
pa e si comincia a giocare col com¬ 
puter e girare, sempre negli stessi 
luoghi. Non potete ricordare tutte le 
mosse che state facendo, è impossi¬ 
bile. Io stesso che ho ideato il pro¬ 


gramma quando lo mostro e voglio 
arrivare alla fine ho con me le indi¬ 
cazioni giuste scritte su un foglio. 
Quindi esaminate le stanze o i luo¬ 
ghi, annotate ciò che vi sembra im¬ 
portante, non smarritevi nel tortuo¬ 
so labirinto di parole. Vedrete che 
con questo semplice metodo base 
riuscirete a percorrere il cammino 
senza girare a vuoto. Costruitevi in¬ 
somma una specie di filo di Arianna. 
Quando mai si entra in un labirinto 
sconosciuto senza prendere i giusti 
attrezzi? Voi non siete il computer, 
non potete ricordare le mosse ed i 
luoghi passati dovete scriverli da 
qualche parte. Prendete la mappa 
tenetevcla sempre sotto gli occhi e 
cominciate con una matita ad anno¬ 
tare i primi movimenti. Comesi an¬ 
notano i movimenti lo abbiamo già 
visto. Con il simbolo delle freccette. 
Un quadratino è il luogo di partenza 
e se andiamo a Nord segniamo una 
freccia verso Nord. Vediamo che 
succede a Nord ... e se c’é qualche 
pericolo, la prossima volta non pas¬ 
seremo a Nord. Vi sembra difficile? 
Se nella stanza che troviamo a Nord 
c’è qualche oggetto proviamo a 
prenderlo. 

Potrà anche darsi che sia un og¬ 
getto da non prendere, ma potrà in¬ 
vece essere un oggetto utile. Se com¬ 
mettiamo un errore il gioco ci ri¬ 
sponderà ci manderà forse a Game 
over, nessun problema. Ricomincia¬ 
mo da capo scrivendo che a Nord c’è 
un oggetto da non prendere. E così 
via! Generalmente nella schermata 
troviamo anche indicazioni che ci 
possono aiutare in seguito. Non tut¬ 
ti gli oggetti dobbiamo lasciarli: per 
alcuni dobbiamo usare verbi specia¬ 
li e diversi da verbo lasciare. In un 
certo momento un oggetto ci serve 
per compiere una azione: ad esem¬ 
pio non dobbiamo dire lascio la pi¬ 
stola, ma Sparo con la pistola ... mi 
pare ovvio! - Altre volte possiamo 
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conoscere il verbo giusto se risolvia¬ 
mo un enigma. La nostra attenzione 
deve essere costante e non dobbia¬ 
mo perdere una sola informazione. 
Certe volte ho sentito dire: Sono ar¬ 
rivato fino a quel punto eppoi non 
sono riuscito ad andare avanti. Vuol 
dire che qualcosa ti è sfuggito, che ti 
manca un oggetto o una parola chia¬ 
ve che è in qualche luogo che tu non 
hai ancora visitato. Se hai marcato 
tutto, ti accorgerai senza problemi 
di quel luogo rimasto ancora ines¬ 
plorato. I giochi più sofisticati e 
completi inoltre vi danno la possibi¬ 
lità di salvare la posizione. Quando 
non riuscite ad andare avanti oppu¬ 


re siete stanchi salvate sempre la po¬ 
sizione. Quando riprenderete la sfi¬ 
da non sarete costretti a ripartire da 
capo. Oppure potete ripartire se¬ 
guendo altre vie. Fate delle prove 
fino a che non trovate le giuste solu¬ 
zioni. 

Torniamo al nostro Adventure. 
Tutta una serie di comandi impor¬ 
tanti risiedono nel modulo 1: i co¬ 
mandi dell’inventario, i comandi del 
prendere, lasciare ed esaminare gli 
oggetti del gioco. Lasciare-prendere 
ed esaminare, sono i verbi di uso 
comune nella nostra avventura. Ab¬ 
biamo già visto che dovremo ag¬ 
giungerne altri, ma ritornerò in se¬ 


guito su questo argomento. A 2540 
inizia l’inventario. Quando nel cor¬ 
so del gioco si prende un oggetto è 
giusto e logico che qualcosa nel pro¬ 
gramma stesso ci ricordi l’oggetto 
preso. La nostra memoria potrebbe 
ingannarci. Inventario nel gioco è 
insomma una sorta di utility. IV = é 
la variabile che indica appunto In¬ 
ventario. 

2542-Diciamo che IV è uguale a 0- e 
dopo facciamo riconoscere al com¬ 
puter che 5 sono gli oggetti che deb¬ 
bono essere raccolti. 5 sono gli og¬ 
getti nei DATA. Quindi per L sele¬ 
ziona da 1 a 5 e se OG%(L)=—1 
allora stampa OG$(L). 

Quindi aggiungiamo che IV=IV+1. 
OG%(L)=— 1 vuol dire che l’oggetto 
è stato preso. Quindi chiudiamo il 
ciclo FOR con il NEXT. Rimandia¬ 
mo tutto a 182, all’input D$. A 2550 
c’è la routine del Prendere oggetti. È 
costruita più o meno come la prece¬ 
dente. La linea interessante è la 
2553. SOS è la variabile che indica il 
nome (che fa insomma riconoscere 
al computer che si tratta di un nome 
non di un verbo). Allora se OG$(G), 
il nome dell’oggetto nei DATA, è 
uguale al nome che poniamo noi al¬ 
l’input ... si salta a 2555 dove si in¬ 
contra una istruzione che è un po’ 
una novità: un piccolo, ma necessa¬ 
rio algoritmo che ho ideato e che 
generalmente non si trova negli altri 
Adventure, e che esamineremo 
un’altra volta. Esaminiamo ora le 
risposte. 

2556- Se OG%=—1 allora stampa- 
Hai già preso (nome oggetto) - a 
2557 se OG%(G)OPC allora 
stampa “Dove vedi” + nome ogget¬ 
to. Vuol dire che se il numero che 
indica OG% non è uguale al numero 
di Stanza, PC significa che l’oggetto 
non è in quella stanza. Infine la 2558 
dopo aver esaminato le precedenti 
dice che Hai raccolto + nome ogget¬ 
to. A 2579 c’è invece la routine per il 


Listato 1. 1 comandi dell'inventario. 

2540 REM INVENTARIO 

2541 FRI NT "MIAI RACCOLTO : " 

2542 IV=0 : F0RL=1TQ5 

2543 IF0G2<L)=-1THENPRINT0G*<L> : IV=IV+1 

2544 NEXT 

2546 IFIV=0THENPRINT"NULLA E' NELLE TUE MANI!" 

254? GOTO132 

2350 REM PRENDERE OGGETTI- 

2552 F0RG=1T05 

2553 IFOGS< G }=S0$THEN2555 

2554 NEXT 

2555 IFG=6THENGOTO2600 

2556 IFOGJi<f >=- 1 THENPRI NT "HAI GIÀ' PRESO ";0GX<G>: GOTO182 

2557 IFOGX<G)OPC'THENPRINT"DOVE VEDI " ; 0G$<G> : GOTO 182 

2558 PRIHT" IAI RACCOLTO “;OG*<G> : QGX<G>=-1 

2559 GOTO132 

2579 REM LASCIARE OGGETTI * 

2530 F0RL=1TQ5 

2581 IFQG$(L)=S0fTHEN2584 

2582 NEXT 

2584 IFL=6THENPRINT"COSA VUOI LASCIARE?":G0T0182 

2585 IFOGX<L)<>-1THENPRINT"NON HAI ";0G$<L>=G0T0182 

2586 PRINT'LUHAI LASCIATO ";0G*<L> :0GJi<L>=PC 

2587 GOTO132 

2589 REM ESAMINO OGGETTI* 

2590 : 

2591 F0RE=1T05 

2592 IF0G$<E)=S0STHEN2595 

2593 NEXTE 

2595 IFE=6THENG0T02599 

2596 IFOCX<E> 1THENPRINT"L'HAI TRA LE MANI":GOTO9000 

2597 IFOGX<E)OPC'THENPRINT"DOVE VEDI "0Gf<E>" ? ":GOTO182 

2598 PRINT"STAI ESAMINANDO...";0G$<E>=GOTO9000 

2599 FRINT"ESAMINA DELL'ALTRO!"=0010182 
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Listato 2. Lista delle locazioni intestate. 

5000 Print" «ROTTA DELLO STREGONE 3" 

5001 Prinf'a 

5002 Print" 

5003 Print" 

5009 n=0 ; o=0 ; e=0 : s=0 : 9oto152 

5010 Print" a DESERTO ALTO 

5011 Print" 

5012 Print" 

5019 n=0 : o=0•e=0 : s = 0 : 9otol52 

5020 Print" a DESERTO ALTO a " 

5021 Prinf'a 

5022 Print" 

5023 Print" 

5029 n=0 : e=0 : s=0 : o=@ : 9otol52 

5030 Print" a DESERTO ALTO 3" 

5031 Print" 

5032 Print" 

5033 Print" 

5039 n=0 : s=0 : e=0:o=0 : 9oto152 

5040 Print" a GROTTA SIOUX 

5041 Prinf'a 

5042 Print" 

5049 n=0 : o=0 : e=0 ; s=0 : 9otol52 =remfuori 9ioco 

5050 Print" a DESERTO DI MEZZO-" 

5051 Print" a Sabbie Mobili 

5052 Print" 

5059 n=0 : e=0=s=0 : o=0 : 9oto6000 ; rem(fuori 9ioco)- 

5060 Print" a CASA BOSCAIOLO a" 

5061 Prinf'a 

5062 Print" 

5069 n=2 : s=12 ; e=8 ; o=6 ; 9oto152 

5070 Print" a DESERTO DI MEZZO a" 

5071 Prinf'a 

5072 Print" 

5079 n=0 : s=0 : o=0 : e=0•9otol52 

5080 Print" a DESERTO DI MEZZO a" 

5081 Prinf'a 

5082 Print" 

5883 Print" 

5084 Print" 

5089 n=0 : s=0 : e=0 : o=0 : 9otol52 

5090 Print" a DESERTO DI MEZZO 

5091 Prinf'a 
5032 Print" 

5099 n=0 : e=0 : o=0 : s=0 : 9oto152 

5100 Print" a DESERTO BASSO 

5101 Prinf'a 

5102 Print" 

5103 Print" 

5109 n=0 : s=0 : e=0 : o=0 : 9otol52 

5110 Print" a DESERTO ALTO 

5111 Prinf'a 

5112 Print" 

5119 n=0:s=0 : e=0 : o=0 ; 9otol52 

5120 Print" a DESERTO BASSO 

5121 Prinf'a 

5122 Print" 

5123 Print" 

5129 n=0 : s=0 : e=0 : o=0 : 9otol52 

5130 Print" a DESERTO BASSO 

5131 Print" a 

5132 Prinf'a 

5139 n=0 : s=0 : e=0 ; o=0 : 9oto6000 

5140 Print" a DESERTO BASSO 

5141 Print" a 

5142 Print" 

5143 Print" 

5144 Print" 

5149 n=0 : s=0 : e=0 o=0 : 9oto152 

5150 rem#*##**fine locazioni**#* 
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Dentro 

l’avventura 


verbo lasciare. Penso non sia neppu¬ 
re il caso di spiegarla poiché è simile 
alla precedente. A 2591 inizia la rou¬ 
tine di Esamino. Anch’essa è in tutto 
simile alla precedente: cambia solo 
la variabile che in questo caso è E. 

Concludiamo questa parte con la 
lista delle locazioni intestate del mo¬ 
dulo 2. Esse vanno da 5000 fino a 
5249. Sono esattamente i nostri 15 
luoghi d’azione del gioco. Per il mo¬ 
mento non vi sono le indicazioni dei 
movimenti possibili, li aggiungere¬ 
mo in un secondo tempo quando 
avremo deciso quali itinerari far 
percorrere al nostro eroe. L’unica 
che possiede le indicazioni di movi¬ 
mento è il luogo n. 7: la Casa del 
Boscaiolo, luogo da cui parte la no¬ 


stra avventura. 

La casa come potete vedere è com¬ 
pletamente circondata dal Deserto. 
Deserto Alto quello a Nord, Deser¬ 
to di Mezzo quello centrale nella 
mappa e Deserto Basso quello a 
Sud. Come potete vedere mancano 
anche le descrizioni di ogni luogo. 
Descrizioni che possono riempire, 
in questo caso, 8 righe. Ad esempio 
la 5000 è la descrizione base del luo¬ 
go Grotta dello Stregone. Dalla 
5001 alla 5008 è tutto libero, qui 
dobbiamo porre la nostra descrizio¬ 
ne ed eventuali problemi da risolve¬ 
re. Alla 5009 troviamo invece i co¬ 
mandi di direzione (per il momento 
tutti a zero). Come già detto in pre¬ 
cedenza, questo è solo una tra i tanti 


modi per scrivere un Adventure. E 
vi accorgerete da soli come scrivere 
un Adventure sia stimolante soprat¬ 
tutto nel ricercare nuove soluzioni. 
Man mano che andremo avanti por¬ 
remo delle varianti, delle soluzioni 
diverse a questo tipo di schema. 
Ora che avete la Mappa, gli oggetti 
che sono stati posti, la descrizione 
dei luoghi, potete ad esempio per 
conto vostro arricchire questi luoghi 
di particolari descrizioni. Non pote¬ 
te certo limitarvi a presentare il luo¬ 
go semplicemente sotto l’etichetta 
“Casa del boscaiolo”, ma il vostro 
Adventure deve risultare ricco e pre¬ 
ciso. ■ 
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COMMODORE VIC 20 E C64 

I super BASIC 


c01f f0 08 

C021 a2 69 
C023 a 0 00 
C02S 4c 79 00 
C028 


be q *c023 : Si ugual* passa Ad eseguire il 

» nuovo comando. 

ldx 4*69 (Altrimenti ristabilisce i 

ldy 4*00 ( rea istr i X e Y 

Jmp *0079 (Torna alla vecchia routine. 

(INIZIO ROUTINE NUOVI COMANDI 


Pane seconda 
di Alessandro Guida 

Per chi avesse perso la prima parte di questo articolo, 
diciamo che si tratta di una carrellata tra i sistemi più 
diffusi per implementare nuove istruzioni BASIC. 


I wedge 

Wedge vuol dire cuneo ed è un sistema molto utilizzato 
per arricchire il vocabolario del 64 o del VIC 20 con 
nuovi comandi. 

II BASIC V 2.0 della Commodore ha una routine del¬ 
l’interprete allocata nella pagina zero, in RAM. Questa 
routine, detta di Charget, ha il compito di leggere i 
codici o i caratteri delle linee BASIC, sia in modo diretto 
che in programma, saltando automaticamente gli spazi 
ed indicando per mezzo del carry se il carattere letto è un 
numero o no. 

Grazie al fatto, che questa routine risiede in RAM, è 
possibile modificarla per inserirne una nostra che inter¬ 
cetti i nuovi comandi che non verrebbero interpretati 
dal BASIC normale. Vediamo la routine originale: 


0073 

e6 

7a 

Ine 

*7a 

0073 

dO 

02 

bn* 

*0079 

0077 

*6 

7b 

Ine 

*7b 

0079 

ad 

** ** 

Ida 

***** 

007c 

c9 

3a 

emp 

4*3a 

0O?e 

b0 

0a 

bc» 

*008 a 

0080 

c9 

20 

C Ttf> 

M*20 

0082 

f0 

ef 

btq 

*0073 

0084 

38 


**c 


0083 

69 

30 

sbe 

4*30 

0087 

38 


S*C 


0088 

*9 

d0 

sbe 

4*d0 

008a 

60 


rts 



(Incramanta 1 registri *7A,7B 
( che puntano al carattere da 
( leggere. 

(Carica 11 carattere 

(Se maggiore del '9 <hex 39) 

( termina con il carry alto 
(Se e* uno spazio passa al 
( carattere successivo 
(Con questa operazione pone 
( il carry a uno, senza alte- 
( rare l'accumulatore, solo 
( se il codice e a <30 <*0) 
(Termina la routine con il 
( codice ne 11 'accumu1atore 
( e il carry alto se non si 
t tratta di un numero. 


A questo punto possiamo interporre una nostra routine 
che controlli se il carattere letto fa parte di uno dei nuovi 
comandi o no. Nel primo caso viene eseguito dalla 
nuova routine,nell’altro si torna alla vecchia Charget. 
Possiamo, per esempio, scrivere: 


0073 4c 0d C0 

0076 ea ea ea 
0079 ad ss m 


Jmp *c00d (Salta alla nuova routine 
nop < 

Ida ***** (Se non e* un nuovo comando 
t torna qui. 


c00d «6 7a 
C00# d0 02 
c01 I e6 7b 
c013 8c 24 c0 
c016 8e 22 c0 
c 019 A0 00 
c01b bl 7a 
cOld c9 40 


(NUOVA ROUTINE 

ine *7a (Incrementa 1 puntatori 

bne *c013 ( 

ine *7b ( 

sty *c024 (Salva i contenuti del registri 
stx *c022 « X ed Y. 

ldy 4*00 ( 

Ida <*7a>,y(Legge prossimo carattere 
emp 440 (Confronta con 'fi 


Per semplificare il riconoscimento dei nuovi comandi si 
usa farli precedere da un carattere normalmente non 
utilizzato dal BASIC. In questo caso abbiamo scelto il 
simbolo 

Va notato, infine, che la Charget routine è chiamata in 
diversi punti del sistema operativo, mentre noi siamo 
interessati solo alla fase di esecuzione degli statement. 
Perciò è necessario controllare, oltre alla presenza del 
simbolo “@’\ se l’indirizzo di chiamata è SA7E6, che fa 
parte della routine Execute next statement. Tutte le altre 
chiamate devono essere ignorate. 

Nel listato 1, in linguaggio macchina, abbiamo voluto 
aggiungere, a scopo dimostrativo, i comandi @L e @P. 
Questi vanno usati senza parametri e permettono di 
cancellare, sullo schermo, dal cursore a fine linea (@L) e 
dal cursore a fine pagina (@P). 

Il sistema del wedge, senz’altro molto comodo da utiliz¬ 
zare, non è ancora l’ideale per chi necessita dell’aggiun¬ 
ta di un solo comando particolare. Anche perché ha 
bisogno di una fase di inizializzazione, per la modifica 
della Charget routine, e di una tabella di nuovi comandi 
che ne pregiudica la flessibilità. 

Il sistema che vedremo ora risolve questo problema 
quando i comandi che si vogliono aggiungere sono a sé 
stanti. 


Routine Stand-Alone 

La soluzione molto semplice è di scrivere delle routine 
a sé stanti che svolgono determinati compiti, senza esse¬ 
re collegate a particolari caratteristiche del sistema ope¬ 
rativo o dell’interprete BASIC. Queste routine possono 
essere eseguite con dei normalissimi SYS all’interno di 
un programma. 

Ovviamente, per questa loro caratteristica, non permet¬ 
tono l’implementazione di strutture particolari tipo 
WHILE ... WEND, o ELSE ma risolvono egregiamente 
il loro compito quando si tratta di comandi tipo PLOT, 
SCROLL ecc. 

La zona di memoria che si presta ottimamente a conte¬ 
nere queste routine è quella che va da SC000 a $CFFF 
nel 64. Il sistema per caricarvi i dati in l.m. è a scelta del 
programmatore. In generale se si tratta di brevi routine 
conviene incorporarle nel programma e trasferirle con 
un ciclo di FOR-READ-POKE-NEXT. 

Altrimenti possono essere registrate a parte sul disco o 
su nastro e richiamate all’inizio del programma princi¬ 
pale con una linea tipo: 

10 IF C=0 THEN C= 1 :LOAD“CODE”,8,1 
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Listato 1. Listato Assembly della routine Wedge. 


ceee 

*9 

4c 


Ida 

4*4c 

(Iniziai izza la rout.in® di CHARGET 

C002 

83 

73 


tt» 

973 

t 

cOO 4 

a 9 

0d 


Ida 

9996 

t 

ceee 

83 

74 


sta 

*74 

t 

ceee 

a9 

c o 


Ida 

4*c0 

i 

eoe» 

83 

73 


»t» 

•73 

t 

cOBc 

60 



rts 


I 

cPOd 

•8 

7a 


Ine 

•7a 

iINIZIO UEOOE 

ceef 

de 

02 


bn® 

*c013 

(Aggiorna puntatori 

COI 1 

•e 

7b 


Ine 

•7b 


C0I3 

ec 

86 

C0 

sty 

•c 026 

(Salva 1 registri X • Y 

cote 

8® 

24 

C0 

stx 

*c0e4 

l 

cO 19 

a0 

00 


Idy 

N*00 

t 

cOlb 

ba 



tix 


>Lagg® nallo stacR l'indirizzo 

cete 

bd 

8 ! 

01 

Ida 

*0101 

,x( di chiamata dalla CHARGET ROUT. 

cetf 

c 9 

• 6 


erre 

■ *•6 

(S® byt® basso O E6 torna al 







( alla CHARGET originai® 

C02I 

f0 

P7 


be* 

*c02a 

l 

c 023 

a8 

69 


ldx 

4*69 

(Ristabil ite® X • Y 

C023 

aO 

0? 


Idy 

N«00 

t 

C027 

4c 

76 

00 

J rrp 

*0079 

(Torna Chargat 

C02a 

be 

02 

01 

Ida 

*0102 

,x (Se byt® alto Indirizzo <> 87 

cP2d 

c9 

a 7 


c mp 

4*a7 

( torna alla Chargat originai® 

c02f 

dO 

f2 


bn® 

*C023 

( 

c03 t 

b! 

7a 


Ida 

<*7a) 

.y(Legg® prossimo caratt®r® 

C033 

c9 

48 


erre? 

4*40 

(S® diverso '0' Chargat orla. 

c033 

dO 

• c 


bn® 

*c 023 

i 

C037 

ce 



Iny 


t 

c 038 

b t 

7a 


Ida 

<*7a > 

«y(Legge carattar® succisa ivo 

C03a 

(9 

98 


c rrp 

4*30 

(S® ugual® P va alla routini 

c03c 

i o 

e® 


boq 

*c04c 

( corr (spendente 

c 03® 

cO 

de 


cnp 

4*4C 

(S® diverso L torna alla 

c 040 

de 

t 1 


bn® 

*C 023 

( Chargat originai® 







(CANCELLA LlhEA 

C042 

39 



3®C 


t 

C043 

20 

fi 

ff 

Jsr 

94 449 

(Legga posizione cursore 

C046 

88 

70 

C0 

Jsr 

*C070 

(Routine cane®11az Iona da Y.X a 







( fin® linea. 

C049 

4c 

60 

C0 

Jtnp 

•c060 

(Termina 







(CANCELLAZIOfE FlfC PAGINA 

C04C 

38 



sec 


1 

c04d 

20 

f 0 

f f 

Jsr 

94449 

(Legge posiziona cursore 

C030 

88 

70 

C0 

Jsr 

*C07O 

(Cancella fin® linea 

C0S3 

a0 

00 


Idy 

4*00 

(Inizio linea successiva col.0 

c 033 

• 8 



tnx 


(Incrementa numero linea 

cose 

• 0 

19 


cpx 

4*19 

(Se a 23 fine 

C038 

4 0 

06 


baq 

*C060 

( 

C03a 

20 

70 

C0 

Jsr 

*c 070 

iCane®1 la 1inea 

c03d 

4c 

33 

C0 

Jirp 

*C033 

(Ripete 

c 060 

18 



eie 


(FINE UEOOE 

C061 

a9 

02 


Ida 

4*02 

(Aggiorna puntatori *7A»7B 

C0B3 

63 

7a 


adc 

*7a 

( allo statement successivo 

c 063 

83 

7* 


sta 

*7a 

i 

C067 

a9 

00 


Ida 

4*00 

i 

C069 

88 

7b 


adc 

•7b 

t 

c06b 

83 

7b 


sta 

*7b 

( 

c06d 

4C 

79 

00 

Jmp 

*0079 

(Salta alla vecchia CHARGET 







tROUTIbE CANCELLAZlObE DA Y,X A 







( FIfE LlhCA 

cO70 

«8 

04 


1 da 

4*04 

(Carica in *FB,*FC inizio 

C072 

3-, 

i c 


sta 

*fc 

( mappa schermo. 

C074 

a9 

98 


Ida 

4*00 

t 

C076 

83 

fb 


sta 

*fb 

i 

C 070 

3 fi 

46 


stx 

946 

(Salva registro X 

c07a 

ca 



d«x 


(Oacrementa numero 1in®a 

c07b 

30 

10 


bml 

•c08d 

(Se < 0 fin® calcolo indirizzo 

c07d 

18 



eie 


(Sonvna 440 all'indirizzo 

C07® 

et 

28 


Ida 

4*28 

( inizio mappa schermo 

C0O0 

63 

fb 


adc 

*fb 

i 

C082 

un 

fb 


sta 

• fb 

I 

C0B4 

a9 

00 


Ida 

4*00 

( 

C0B6 

63 

fc 


adc 

•fc 

( 

c 080 

88 

fc 


sta 

94 C 

i 

C00« 

4c 

?a 

C0 

J mp 

*e07a 

(Ripete 

C08d 

a9 

20 


Ida 

4*20 

(Codice spazio nel 1 'accunulatore 

c08f 

81 

fb 


sta 

<*fb ) 

,y(Canee1 la locazione schermo 

C091 

r 0 



iny 


(Passa alla successiva 

C092 

' 8 

28 


cpy 

4*28 

(Se Y*440 allora fine 

C 094 

dO 

f 9 


bn® 

*C08f 

(Altrimenti ripete 

C096 

46 

fd 


ldx 

*fd 

(Rlstabilisce X 

C098 

60 



rts 


(Termina 


Listato 2. Routine in Assembly per le istruzioni PLOT, 
SCROLL e COLOUR. 

IROUTIbC PLOT 


C000 

20 

f 1 

b7 

Jsr 

*b7f 1 

(Controlla virgolo e legge primo 







( parametro <X) 

c 003 

c0 

20 


CPX 

4*28 

(Se maggiore di 40 errore 

C003 

90 

03 


bcc 

*c00a 

( 

c 007 

4c 

48 

b2 

Jmp 

Sb248 

(Salta a ILLEQAL QUANT . ERROR 

cO0a 

8» 



txa 


(Salva valore X 

c00b 

48 



pha 


( 

C00C 

20 

4 1 

b7 

Jsr 

*b7f l 

(Logge parametro successivo <Y> 

c0Of 

•8 

19 


CPX 

4*19 

(Se maggiore di 23 errore 

C01 1 

b 0 

4 4 


bes 

*c©07 

t 

C013 

68 



pia 


(Riprende X 

c014 

a8 



tay 


( 

C013 

28 

f0 

44 

Jsr 

94449 

(Posiziona cursore 

C018 

60 



rts 


(Torna al basic 







(ROUTIfE SCROLL 

C019 

20 

4 1 

b7 

Jsr 

*b7f 1 

(Legge parametro 

c0 le 

88 

13 


stx 

*13 

(Lo salva in *13 

C0 1® 

ae 

87 


Idy 

4*07 

t 

C02O 

ad 

11 

dO 

Ida 

*d011 

(Selezione 24 linee ed azzera 

c 023 

29 

f0 


and 

4*f 0 

( bit posizione 

caas 

S3 

14 


sta 

*14 

(Memorizza risultato in *14 

C027 

38 



ty a 


(Matte valore bit posiz. in A 

C028 

03 

1 4 


ora 

*14 

(Aggiunge nibbi® alto *0011 

c02a 

éd 

l l 

d0 

sta 

*d01 1 

(Agg torna *0011 

c02d 

A3 

0O 


Ida 

4*00 

(Ciclo di r itardo 

C02f 

83 

a£ 


sta 

•a 2 

t 

C031 

»3 

*2 


Ida 

*a2 

( 

C033 

c3 

13 


emp 

*13 

( 

C033 

90 

fa 


bcc 

*C03 1 

( 

C037 

88 



dey 


(Oacrementa valore bit posizione 

C038 

10 

e6 


bp 1 

*c 020 

(Sa >»0 r ipete 

c 03» 

73 



se i 


(Disabilita interrupt 

c03b 

20 

• a 

®e 

Jsr 

*®8ea 

(Scroti di una linea in alto 

c03e 

ad 

1 1 

d0 

Ida 

*d011 

iRlmatt. > 7 i bit di bollitori. 

c04 1 

89 

fO 


and 

4*f 0 

1 

C043 

09 

17 


ora 

4*17 

1 

c043 

?cJ 

1 1 

d0 

sta 

*d0 1 1 

( 

C048 

38 



cl 1 


(Riabilita interrupt 

c 049 

60 



rts 


(Termina 







(ROUTire COLOUR 

c04a 

2C 

4 1 

b7 

Jsr 

*b7f 1 

(Legge modo colore 

c04d 

® 0 

3 0 


cpx 

4*00 

:0*modo colore normale 

c 04f 

dO 

09 


bn® 

*c05a 

t 

COSI 

ad 

1 1 

dO 

Ida 

*d0 1 1 

■ □nobilita color, .staso 

c 034 

29 

bf 


and 

4*bf 

( 

C036 

4c 

63 

C0 

Jmp 

*c 063 

( 

C039 

ea 



nop 


1 

C03a 

•8 

81 


cpx 

4*01 


c03c 

d0 

a 3 


bn® 

*C007 

(Se <> l errore 

c03e 

ad 

1 1 

dO 

Ida 

•don 

(Abilita colore esteso 

c061 

09 

43 


ora 

4*40 

t 

C063 

8d 

1 1 

d0 

sta 

*d011 

( 

C066 

20 

f 1 

b7 

Jsr 

*b7f 1 

(Legge colore bordo 

C069 

8® 

20 

dO 

stx 

*d020 

(Aggiorna registro corrisp. 

c06c 

20 

4 1 

b7 

Jsr 

*b7f 1 

(Legge colore sfondo 1 

C06f 

8® 

21 

d0 

stx 

*d02 1 

(Aggiorna registro corrisp. 

C072 

ad 

1 1 

dO 

Ida 

*d0 1 1 

(Se modo colore normale 

C073 

29 

40 


and 

4*40 

( termina 

c077 

d0 

01 


bne 

*c07a 

( 

C079 

60 



rts 


i 

c07a 

20 

f 1 

b7 

Jsr 

*t> 7f l 

(Legga colore sfondo 2.3.4 e 

C07d 

8e 

22 

dO 

Stx 

*d022 

( aggiorna i registri corrisp. 

C080 

88 

f 1 

b7 

Jsr 

*b7f 1 

i 

C083 

Se 

23 

dO 

stx 

*d023 

i 

C086 

20 

f 1 

b7 

Jsr 

*b7f 1 

i 

C089 

3e 

24 

do 

stx 

*d024 

s 

c08c 

60 



rts 


(Termina 


Nel caso di più routine, e per dare un aspetto mnemoni¬ 
co alle nuove istruzioni, conviene assegnare a delle va¬ 
riabili, il cui nome richiami la funzione svolta, il valore 
dell’indirizzo di entrata delle routine. Per esempio: 

20 PLOT=49152:SCROLL=49256 

Bisogna solo prestare attenzione al fatto che nessun 
nome contenga al suo interno qualche comando del 
BASIC. Ad esempio la variabile Color darebbe errore 
poiché contiene la funzione OR. Basta comunque modi¬ 
ficarla in Colour. 

A questo punto è sufficiente richiamare la funzione con 
un SYS seguito dal nome del comando che si vuole 
eseguire, ad esempio: 

SYS SCROLL. 
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Listato 3. Dimostrativo utilizzante le routine del listato 2. 

3 pr irrt "I" i gosub 30000:rem Iattura routine 1 m 
7 rem **** entry point delle routine *** 

10 piot=491321 scroi 1=491771 colour=49226 

20 print , H“isys scroi 1,13trem *** attiva schermo 24 righe 

23 sys co 1our , 1 ,6,6,0,3,2irem *** seleziona modo colore esteso ed i colori 
30 for x=0 to 3 

40 read a*» rem *** legge la stringa e la stampa 
30 sys p1ot,0,24 :print a$;irem «** nella linea invisibile 
60 sys scroi 1,lSirem *** esegue lo scroti 
70 nextiend 

80 data "prova di scroti continuato” 

90 data "CON VIDEO IN MODO COLORE”srem battere con shift (spazi compresi) 

100 data’Sssteso. i colori sono blu" 

110 data * V^CRO BIANCO E ROSSOn “srem battere con shift (spazi compresi) 

30000 nestorelin=49152 
30003 read a*,b*,c*,d* 

30010 reada*iifa*=’***“thenrestoreireturn 
30020 tt=val(a*)spoKein,tt 

30030 forc = lto7ireada:poKein+c,a:tt=tt+amext 

30040 readaiifa(Xtt and235)thenprint"errore nei data alla 1inea"peeK(64)*256+pe 
eK(63):end 

30050 in=in+8igoto50010 

30060 data032,241,183,224,040,144,003,076,173 
30070 data072,178,138,072,032,241,183,224,116 
30080 data023,176,244,104,168,032,240,233,220 
30090 data096,032,241,183,134,021,160,007,106 
30100 data 173,017,208,041,240,133,020,132,216 
30110 data003,020,141,017,208,169,000,133,181 
30120 data 162,163,162,197,021,144,250,136,213 
30130 data016,230,120,032,234,232,173,017,030 
30140 data208,041,240,009,023,141,017,208,1 19 
30130 dat a088,096,032,241,183,224,000,208,048 
30160 data009,173,017,208,041,191,076,099,046 
30170 data 192,234,224,001,208,169,173,017,194 
50180 data208,009,064,141,017,208,032,241,152 
30190 data 183,142,032,208,032,241,183,142,139 
30200 dat a033,208,173,017,208,041,064,208,184 
30210 data001,096,032,241,183,142,034,208,169 
30220 data032,241,183,142,033,208,032,241,090 
30230 data 183<142,036,208,096,233,000,000,132 
30240 data #** 


Chi ha paura 

Con una incredibile decisione 
Mondadori rifiuta pubblicità su Panorama. 

Il cliente va all’Espresso. 

Finché ci capita di leggere che nel Triveneto il 
Gazzettino si rifiuta di pubblicare un necrologio «in 
morte di un amico gay», ci arrabbiamo parecchio 
ma non ci stupiamo affatto; quando però una 
birbonata porta un cognome come Mondadori, il 
fatto ci stupisce assai e ci inquieta anche un poco. 

È successo che Panorama ha negato lo spazio 
pubblicitario alla campagna abbonamenti delle 
testate, tutte specializzate nell’area dell’informatica 
e dell’elettronica, del gruppo editoriale Jackson, 
perché - questa la motivazione addotta - «in 
concorrenza con la linea editoriale della 
Mondadori». 

(Com’è noto nel pacchetto del gruppo di Segrate, tra 


di Jackson? 

le riviste che trattano di computer, spicca Zerouno, 
direttore Italo Cammarata). «Lo trovo un 
atteggiamento assurdo e ridicolo, purtroppo però 
anche molto pericoloso da un punto di vista più 
generale, per la libera circolazione in un libero 
mercato di idee e di prodotti», ha dichiarato a 
Pubblico Alberto Vitali, amministratore delegato 
della Ethos (l’agenzia ha acquisito l’editoriale 
Jackson proprio quest’anno). Per noi, prosegue 
Vitali, l’editoriale Jackson, non è un problema, 
dirotteremo l’investimento su Repubblica e 
Espresso. Al di là di tutto è soprattutto il mòdo in 
cui è stato gestito l’episodio che offende Vitali: 
Segrate ha rispedito gli esecutivi un giorno prima 
dell’uscita della campagna, accompagnandoli con 
una spiegazione molto laconica e telefonica da 
parte di una segretaria della direzione pubblica. 
Ethos ha comunque chiesto un parere ed un 
chiarimento in materia all’avvocato Fusi. 




(dalla newsletter settimanale “Pubblico” n° 212 - 26 ottobre 1984). 
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Generalmente è necessario trasmettere alla routine in 
linguaggio macchina, anche dei parametri. Questi pos¬ 
sono essere messi direttamente dopo il nome della varia¬ 
bile, sarà la nostra routine che si preoccuperà di andarli 
a leggere. 

Infatti, il comando SYS cede il controllo alla routine in 
linguaggio macchina prima di controllare se dopo l’in¬ 
dirizzo vi sono i due punti o la fine della linea. Perciò 
possiamo leggere i caratteri seguenti la variabile- 
indirizzo con la routine di Charget. Possiamo, anche, 
servirci di routine, tipo $B7F1 che controlla se vi è una 
virgola e trasferisce il dato seguente la virgola nel regi¬ 
stro X, gestendo gli eventuali messaggi di errore. 

Se, per esempio, si vuole indirizzare il cursore in un 
punto qualsiasi dello schermo, potremmo dare in BA¬ 
SIC il comando: 


50 SYS PLOT, IO, 20 


ed avere la corrispondente routine in linguaggio mac¬ 
china: 


C003 00 28 
C003 90 03 
C007 4c 48 b2 
C00» 8a 
c00b 48 
C00C 20 i 1 b7 

cOOf oO 19 

C011 b0 f4 

cO13 68 
C0I4 *8 
C013 20 fO 44 
cO18 60 


cpx tt*28 
bcc *c00a 
Jw *b248 
txa 
pha 

Jsr *b7fl 

cpx NS19 
bcs Se007 
pia 
tay 

Jtr *fff0 
rts 


(So >40 
I 

• salta ad ILLEGAL QUANT.ERR. 

I 

scontorca il primo parametro 
(Controlla seconda virgola e legge 

* e preleva secondo parametro 

(Se 8 >23 

( ILLEQAL QUANT.ERR. 

(Motte in Y primo parametro 
i 

(Subroutine spostamento cursore 
(Termine 


Al termine della routine i puntatori $7A e $7B della 
routine di Charget devono essere posizionati sullo # 00 
di fine linea o sul che separa due comandi, altrimenti 


al ritorno in BASIC si ha un SYNTAX ERROR. Nell’e¬ 
sempio precedente, la routine $B7FI si occupa anche di 
prelevare il carattere seguente. 

yi sono molte altre routine utili che permettono di 
prelevare numeri e stringhe da una linea BASIC. Chi è 
interessato può trovarne un elenco completo nel volume 
// sistema operativo del C 64. 

Riportiamo un esempio di applicazione in cui sono stati 
implementati i comandi PLOT, SCROLL e COLOUR. 
Naturalmente, è possibile utilizzare anche solo una di 
queste routine. 

La sintassi dei comandi è: 

SYS PLOT,x,y - Sposta il cursore in un punto qualsiasi 
dello schermo (x,y coordinate schermo); 

SYS SCROLL,v - Esegue lo scroll lento (un pixel per 
volta) dello schermo (v è la velocità dello scroll: 0-max); 

SYS COLOUR, t, b, si (,s2,s3,s4) - Controlla i colori 
dello schermo. 

(t=0-modo normaIe/t=l-modo colore sfondo esteso); 
(b=colore bordo); 

(sI=colore sfondo); 

(s2,s3,s4=colori alternativi sfondo necessari se t=l). 

Il modo colore di sfondo esteso permette di scrivere con 
diversi colori come sfondo, rinunciando al set di caratte¬ 
ri che si ottiene con lo shift e a quello in reverse. In 
pratica un PRINT normale stampa nel colore si, un 
PRINT di caratteri con lo SHIFT stampa con colore di 
sfondo s2, il reverse attiva il colore s3 ed infine il reverse 
+ lo SHIFT il colore dello sfondo s4. 

I listati 2 e 3 dovrebbero risolvere ogni dubbio. 


SHARP PC-1251 


Alla scoperta del linguaggio macchina 

di Mauro Lenzì 

Prima di addentrarci nell’interessante argomento di 
questo mese, desidero porre alla vostra attenzione due 
notizie che io giudico particolarmente importanti. 

La prima riguarda la nascita di un club degli “sharpi- 
sti”, gestito dalla concessionaria per l'Italia della Sharp, 
la ditta Melchioni, e con iscrizione completamente gra¬ 
tuita. L’importanza di queste iniziative deve essere giu¬ 
stamente apprezzata: quando si acquista un personal 
computer, anche se tascabile, non è sufficiente valutarne 
le caratteristiche tecniche. Infatti bisogna dare un peso 
determinante anche a due altri fattori: la diffusione e il 
software reperibile in commercio. 

Acquistare un computer molto conosciuto ed avere con¬ 


tatti con altre persone che lo possiedono per scambiarsi 
vicendevolmente programmi e “segreti” è una cosa im¬ 
portantissima ed ora, finalmente, anche gli sharpisti 
potranno farlo. 

La seconda notizia, per tutti quei lettori che hanno 
avuto la pazienza di seguirmi fino ad ora verso la sco¬ 
perta dei segreti dello Sharp PC-1251 è addirittura sen¬ 
sazionale: presto saranno disponibili i manuali tecnici di 
questo computer e dello Sharp PC-1500! Sono infatti 
già comparsi nei cataloghi e prestissimo dovrebbero 
essere a disposizione di tutti. Unico piccolo difettuccio è 
che sono in inglese, ma, a quanto dice il catalogo, do¬ 
vrebbero contenere tutte le spiegazioni necessarie alla 
programmazione in linguaggio macchina e gli schemi 
elettrici dei sistemi. Forse finalmente saranno svelati 
alcuni misteri che ci hanno fatto passare lunghe notti 
insonni! 

A questo punto è uno sforzo inutile tentare di decifra¬ 
re il linguaggio macchina del nostro Sharp con i metodi 
artigianali che abbiamo usato fino ad ora, perché l’im- 
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Alla scoperta 
del linguaggio macchina. 


presa richiederebbe uno sforzo immane e tantissimo 
tempo, tuttavia questi articoli vogliono illustrare dei 
metodi generali per giungere ad avere una conoscenza 
veramente approfondita del proprio personal compu¬ 
ter. Decifrare il linguaggio macchina significa sapere 
tutto del nostro computer, ma è un’impresa estrema- 
mente difficile. 

Quello che adesso darò è semplicemente uno spunto, 
frutto di semplici considerazioni, che sicuramente po¬ 
trebbe essere migliorato e può portare anche a conclu¬ 
sioni non sempre esatte e che richiederebbero ulteriori 
conferme a posteriori. Naturalmente dobbiamo suppor¬ 
re che il linguaggio macchina dello Sharp PC-1251 sia 
simile a quello di tutti gli altri computer, anche se abbia¬ 
mo visto che in molte occasioni esso presentava caratte¬ 
ristiche singolari. 

La prima cosa che dobbiamo cercare è un’istruzione di 
salto, una specie di GOTO o di GOSUB del linguaggio 
BASIC. 

Il metodo per trovare le istruzioni di questo tipo è 
molto semplice, con le conoscenze che abbiamo; suppo¬ 
niamo di volere richiamare la subroutine in linguaggio 
macchina corrispondente al comando BASIC Radian. 
Negli articoli precedenti si è visto come è possibile ri¬ 
chiamarla dal BASIC: sappiamo che questa subroutine 
incomincia all’indirizzo di memoria 88 x 256 + 140 = 
22668, perciò basterà digitare CALL 22668. 

Un comando in linguaggio macchina è costituito natu¬ 
ralmente da un numero, compreso fra zero e 255, cioè 
occupante 1 byte. Alcuni comandi, però, possono ri¬ 
chiedere che vengano specificati alcuni dati, che occupe¬ 
ranno altri byte. Nel nostro caso, cioè, per trovare un’i¬ 
struzione di salto, dovremo specificare anche l’indirizzo 
di memoria da cui inizia la subroutine. Poiché questo 
indirizzo è maggiore di 255, dobbiamo dividerlo in “due 
pezzi”: questi pezzi li conosciamo già e sono i numeri 88 
e 140. Concludendo, dunque, possiamo supporre che 
un’istruzione di salto in linguaggio macchina sarà della 
forma X 88 140, dove X è un numero che dobbiamo 
trovare e corrisponderà ad un comando simile a GOTO 
o a GOSUB, mentre 88 140 rappresentano l’indirizzo 
iniziale della subroutine Radian. 

Si tratta ora di determinare il numero X. Supponiamo 
che sia uguale a zero. In tal caso se immettiamo in 
qualche parte della memoria RAM, ad esempio a partire 
dall’indirizzo 40000, la sequenza 0 88 140 e poi facciamo 
eseguire questa istruzione digitando CALL 40000, ve¬ 
dremo che il computer si predisporrà ad eseguire i calco¬ 
li in radianti. 

Se invece 0 non corrisponde ad un comando di salto in 
linguaggio macchina del tipo di quelli che stiamo cer¬ 
cando, eseguendo CALL 40000 si possono verificare 
due casi: o non succede assolutamente niente oppure il 
computer “muore”, ed in tal caso non ci rimane che 
usare il tasto di Reset per “resuscitarlo”. 


45678 10 11 12 13 14 152021 24 26 28 29 30 32 33 34 35 36 
37 38 39 48 49 51 53 64 65 66 67 68 69 70 71 72 73 74 77 80 81 
82 83 84 85 86 87 88 89 90 93 95 104 106 122 128 129 130 131 
132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 

147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 

162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 

177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 

194 195 196 197 198 199 200 201 202203 204 205 206 210 211 
217 218 219 221 

Figura 1. I numeri rappresentali corrispondono molto 
probabilmente ad istruzioni in linguaggio macchina ad un 
solo byte. 

Con un ragionamento analogo è possibile, sostituen¬ 
do ad X tutti i numeri da 0 a 255, trovare tutte le 
istruzioni di salto del linguaggio macchina. 

La cosa sembra più breve a dirsi che a farsi, infatti 
richiede una pazienza certosina, dovendo eseguire 256 
tentativi e tantissimi Reset!! 

In realtà con questo metodo non troveremo proprio 
tutte le istruzioni di salto, perché, come nel BASIC, 
anche nel linguaggio macchina esistono dei salti condi¬ 
zionati, simili agli IF THEN, che non sapendo a quali 
condizioni debbono soddisfare, saranno eseguiti oppu¬ 
re no senza alcun controllo da parte nostra. Nel linguag¬ 
gio macchina esistono poi anche dei salti relativi, che 
corrisponderebbero ad un’ipotetica istruzione BASIC 
che faccia saltare avanti o indietro di un certo numero di 
linee di programmazione. 

Col procedimento descritto sono riuscito a stabilire che 
i numeri 121 124 e 125 dovrebbero corrispondere a 
comandi di linguaggio macchina del tipo cercato: così 
inserendo all’indirizzo 40000 la sequenza 121 88 140 e 
poi richiamandola col comando CALL 40000 il compu¬ 
ter si predisporrà a eseguire i calcoli in radianti. 

Un ulteriore passo avanti che possiamo fare nella cono¬ 
scenza del linguaggio macchina sconosciuto è di deter¬ 
minare la lunghezza dei vari comandi: comandi come 
quelli che abbiamo cercato, occupano complessivamen- 


Listato 1. Questo semplice programma permette di con¬ 
trollare se un certo numero N corrisponde aduna istruzio¬ 
ne in linguaggio macchina ad un solo byte: in caso affer¬ 
mativo, quando il programma eseguirà la linea 40 il com¬ 
puter si predisporrà a fare i conti in radianti e si udirà un 
beep. Modificando la linea IO come segue: 

10 X = 40000 : POKE X+l, 55, 124, 88, 140 
è possibile verificare le istruzioni a due byte. 

10 X= 40000: POKE X+l. 124, 88, 140 

20 INPUT N 

30 DEGREE 

40 POKE X, N : CALL X 

50 IF SIN n = 0 THEN BEEP 1 : GOTO 20 

60 END 
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te tre byte, uno per specificare il comando vero e proprio 
e due per specificare un certo indirizzo di memoria. 
Altre istruzioni possono richiedere solo due byte: sono 
di questo tipo generalmente le istruzioni di salto relativo 
nelle quali il primo byte è occupato dal comando ed il 
secondo dice quanti byte si debbono saltare in avanti o 
aH’indietro (si ha perciò che il salto non potrà essere di 
più di 256 byte). Infine si hanno delle istruzioni di un 
solo byte, come ad esempio l’istruzione corrispondente 
al comando BASIC, RETURN. Tutti i microprocessori 
più semplici non hanno istruzioni lunghe più di tre byte. 
E chiaro quindi che il prossimo passo consisterà nel 
cercare di stabilire quali istruzioni sono ad un byte, 
quali a due e quali a tre. 

Il metodo che si può utilizzare a questo scopo è molto 
simile al precedente: consideriamo la sequenza X 124 88 
140. Possono verificarsi due possibilità: se il numero X 
corrisponde ad una istruzione ad un byte, il computer la 
eseguirà e poi andrà ad eseguire quella successiva di tre 


•0 123 17 18 19 56 57 58 59 78 96 97 98 99 101 103 112 113 114 
115 116 117 118 119212213214225 233234 237242244 245 
247 251 254 

Figura 2. Sono rappresentati in questa figura i numeri 
corrispondenti ad istruzioni a due byte. Sicuramente que¬ 
sti sono solo una parte, perché molte istruzioni a due byte 
servono ad eseguire salti" relativi” e per scovarle bisogne¬ 
rebbe fare altre semplici prove. 


byte che sappiamo già farà predisporre il computer al 
calcolo in radianti; se invece X è il numero di un coman¬ 
do a due o tre byte, interpreterà il numero 124 non come 
un successivo comando, ma come un dato, e perciò il 
computer invece di predisporsi in radianti farà “cose 
strane”. Sostituendo al numero X tutti i numeri da 0 a 
255 possiamo distinguere tutti quelli corrispondenti ad 
istruzioni ad un byte. In figura 1 sono trascritti tutti i 
numeri che, molto probabilmente corrispondono ad 
istruzioni ad un byte. II listato 1 è invece un semplice 
programma di verifica: immettendo in N un numero 
corrispondente ad una istruzione in linguaggio macchi¬ 
na ad un byte si udirà un Beep. 

Nello stesso modo, immettendo in memoria la se¬ 
quenza X 55 124 88 140 è possibile scoprire alcune 
istruzioni sicuramente a due byte. Il numero 55 è stato 
posto a caso, essendo semplicemente un dato, ma pro¬ 
babilmente sostituendolo con altri numeri potremmo 
scoprire altre istruzioni a due byte. Istruzioni sicura¬ 
mente a due byte sono quelle rappresentate in figura 2. 
Con ragionamenti di questo tipo e con tantissima pa¬ 
zienza sarebbe possibile progredire a piccoli passi fino a 
raggiungere una completa conoscenza del linguaggio 
macchina del nostro computer: tuttavia, come detto 
all’inizio, ho voluto solo dare un cenno di come si 
potrebbe procedere in questa ricerca, perché presto 
avremo a disposizione i nuovi manuali coi quali, spero, 
potremo fare un grosso passo avanti nella conoscenza 
del PC-1251. 


SINCLAIR ZX SPECTRUM 

L’uso e ... l’abuso dei caratteri 
di controllo 

di Marcello Spero 

Questo mese presentiamo un intervento del lettore 
Tullio Policastro, su un argomento di sicuro interesse. 
Probabilmente la maggior parte degli utenti di quell’ot¬ 
timo computer che è il nostro ZX Spectrum, anche se 
abbastanza esperti di programmazione, quando sono 
incappati in quella parte del Capitolo 16 del Manuale 
d’uso (in inglese) che tratta brevemente l’argomento dei 
caratteri di controllo l’avranno considerato irrilevante 
per i propri scopi, poco comprensibile, e l’avranno sal¬ 
tato a piè pari. 

In effetti, per la maggior parte delle applicazioni corren¬ 
ti l’uso dei caratteri di controllo - ossia di quella sezione 
del set di caratteri non-standard dello Spectrum che va 
dal codice 0 al codice 31, risulta inutile, o meglio può 
essere sostituito da altri comandi di più semplice ed 
immediata comprensione. E il caso per esempio delle 
istruzioni di PRINT, per le quali sono previsti, oltre a tre 


diversi comandi di formattazione (stampa consecutiva, 
a capo riga o all’inizio di una mezza riga), ben 6 coman¬ 
di per gli attributi (INK, PAPER, OVER, INVERSE, 
FLASH, BRIGHT); nonché un posizionamento fine 
mediante i comandi TAB ed AT (quasi tutti applicabili 
pure all’istruzione INPUT). 

Ciò non toglie che la conoscenza non superficiale 
delle possibilità di utilizzazione dei caratteri di controllo 
possa offrire al programmatore più smaliziato l’oppor- 
tunità di introdurre degli effetti utili. 

Precisiamo innanzitutto che dei 32 caratteri di controllo 
citati, un certo numero sono già noti ed utilizzati: corri¬ 
spondono ai codici da 4 a 15, e sono normalmente messi 
in funzione premendo Caps SHIFT ed i tasti numerici da 1 
a 0 (corrispondono ai comandi scritti in bianco sopra 
questi tasti, da EDIT a DELETE), ai quali si aggiungo¬ 
no il tasto ENTER (carattere di controllo codice 13) e il 
passaggio in modo “E” premendo ambedue i tasti 
SHIFT insieme (carattere di controllo 14). 

I rimanenti caratteri di controllo si riferiscono soprat¬ 
tutto ai comandi per gli attributi. Da un loro uso intelli¬ 
gente si possono ottenere effetti interessanti che passere¬ 
mo ad esaminare un po’ più avanti, dopo aver ricordato 
che ad essi si aggiungono pure 4 controlli di formatta- 
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zione di stampa; prima però mostreremo come si posso¬ 
no mettere in opera i vari caratteri di controllo. 

La lista di quelli che ci interessano si è dunque ridotta a 
questi: 


Codice 

Funzione usuale 

Funzione in stampa 

0 

FLASH 0 

— 

1 

FLASH 1 

- 

2 

BRIGHT 0 

- 

3 

BRIGHT 1 

- 

6 

CAPS LOCK 

a capo mezza riga 

8 

freccia a sinistra 

torna indietro di un 
carattere 

13 

ENTER 

a capo nuova riga 

16 

PAPER nero (0) 

controllo INK 

17 

PAPER blu (1) 

controllo PAPER 

18 

PAPER rosso (2) 

controllo FLASH 

19 

PAPER viola (3) 

controllo BRIGHT 

20 

PAPER verde (4) 

controllo INVERSE 

21 

PAPER azzurro (5) 

controllo OVER 

22 

PAPER giallo (6) 

controllo AT 

23 

PAPER bianco (7) 

controllo TAB 

24 

INK nero (0) 


25 

INK blu (1) 

- 

26 

INK rosso (2) 

- 

27 

INK viola (3) 


28 

INK verde (4) 

— 

29 

INK azzurro (5) 

— 

30 

INK giallo (6) 

- 

31 

INK bianco (7) 

— 


Come si vede, la funzione - ed anche il modo di messa in 
opera - dei caratteri di controllo è diversa a seconda che 
essi vengano inseriti in un’istruzionc(in modo immedia¬ 
to o in un programma), o che siano utilizzati in un 
comando di stampa o equivalente (PRINT, INPUT ed 
anche - inaspettatamente - SAVE). 

Per ottenere la funzione normale si adopera un modo 
leggermente elaborato, che occorre seguire con atten¬ 
zione per evitare strane sorprese. 

Fortunatamente il Manuale d’uso riporta il modo di 
operare in una tabcllina verso la fine del Capitolo 16, a 
cui si potrà ricorrere in caso di dubbio. Prima di tutto 
occorre passare in modo “E” (esteso), il che si ottiene 
come sappiamo premendo contemporaneamente i due 
tasti Caps SHIFT e Symbol SHIFT (compare appunto 
il cursore E lampeggiante). 

A questo punto basterà premere - con o senza Caps 
SHIFT - uno dei tasti numerici per ottenere il carattere 
di controllo desiderato, e cioè uno di quelli che control¬ 
lano, in modo immediato, INK, PAPER, FLASH e 
BRIGHT. Per i primi due attributi non occorre partico¬ 
lare memoria: se è premuto Caps SHIFT assieme al 
tasto numerico che si riferisce ad un codice di colore (da 
0 a 7) si ottiene INK di quel colore; senza Caps SHIFT si 
ottiene PAPER di quel colore (ricordate che il colore è 
scritto in ... colore sopra il tasto numerico corrispon¬ 
dente). Inoltre, Caps SHIFT con un tasto 8 o 9 corri¬ 


spondono a FLASH 0 e FLASH 1, mentre senza Caps 
SHIFT si hanno BRIGHT 0 e BRIGHT 1. È ovvio che, 
come con i comandi diretti, si possono inserire tramite i 
caratteri di controllo anche più attributi in successione: 
occorre però precisare che bisogna ogni volta ritornare 
preventivamente in modo E con la pressione dei due 
SHIFT. 

Ora che si è spiegato come ottenere un dato carattere 
di controllo degli attributi, vediamo dove possiamo 
inserirli. Innanzitutto all’interno di una stringa qualsia¬ 
si (esplicita), ossia in una posizione qualunque fra le 
virgolette (“...”) che la delimitano, proprio come un 
carattere normale, con la differenza che, pure esplican¬ 
do il suo effetto su tutta la parte della stringa che lo 
segue, questo tipo di carattere sarà invisibile. È abba¬ 
stanza ovvio, comunque, che la posizione più naturale 
sia all’inizio della stringa, subito dopo le prime virgolet¬ 
te: va precisato però che con i comandi diretti PAPER, 
INK ecc., l’effetto c temporaneo, ossia dura solo fino al 
termine di una istruzione o di uno statement entro 
un’istruzione. La caratteristica insolita che si osserverà 
sarà che il suo effetto è immediato, ossia si esplica già sui 
caratteri che si impostano subito dopo nella scrittura 
d’un comando diretto o di un’istruzione. 

Questa caratteristica torna comoda quando si voglia¬ 
no evidenziare in modo opportuno le varie parti di un 
listato, o determinate parti entro un’istruzione. Infatti, 
oltre all’inserimento entro una stringa, uno o più carat¬ 
teri di controllo si possono inserire immediatamente 
dopo un numero di istruzione. Ma attenzione: in questo 
caso l’effetto non si manifesterà in fase di editing delle 
istruzioni successive, ma continuerà tuttavia ad eserci¬ 
tarsi sul listato! Quando perciò si vuole conservare l’ef¬ 
fetto su di una determinata parte del listato e non oltre, 
occorre inserire un nuovo carattere di controllo (o più 
caratteri di controllo) che stabiliscano nuovi attributi 
(ad esempio ma non necessariamente, riportino a PA¬ 
PER 7/INK 0 ecc.) al termine dell’ultima istruzione, 
prima di premere ENTER. Da notare che l’inserimento 
dei caratteri di controllo nelle istruzioni può avvenire 
comunque in qualunque posizione della linea, ed anche 
in fase di editing! 

Per rendere queste spiegazioni un poco più chiare, valga 
un esempio. 

Supponiamo di avere in memoria un programma di un 
certo numero di istruzioni, e di volerlo in un secondo 
tempo arricchire con delle REM che separano e breve¬ 
mente illustrano le varie sezioni del programma, che si 
vogliono mettere in evidenza usando opportunamente 
certi attributi. Ammettendo che le istruzioni procedano 
di IO in IO, inseriremo perciò una linea 5 REM, operan¬ 
do in questo modo (supponendo che la prima sezione 
che parte da questa REM debba avere PAPER giallo ed 
INK blu): 

















• impostare 5; 

• premere i due SHIFT assieme (passaggio in modo 
“E”); 

• premere tasto 6 (PAPER giallo); 

• ripremere assieme i due SHIFT; 

• Caps SHIFT + tasto 1 (INK blu); 

• impostare REM seguito dal relativo breve testo espli¬ 
cativo; 

• terminare con ENTER. 

Si osserverà che tutto il programma a partire dal termine 
REM della linea 5 è passato a PAPER giallo ed INK blu! 
Ammettiamo ora di voler inserire prima della linea 100 
un’altra REM, e che la successiva sezione debba risulta¬ 
re in PAPER blu ed INK bianco, lampeggiante. Si ope¬ 
rerà così: 

• impostare 95 (n° di riga che precede il 100); 

• premere i due SHIFT assieme (modo E); 

• premere tasto 7 (INK bianco); 

• ripremere i due SHIFT; 

• premere Caps SHIFT + tasto 1 (PAPER blu); 

• ripremere i due SHIFT ...; 

• premere Caps SHIFT + tasto 9 (FLASH 1);; 

• impostare REM più testo relativo; 

• terminare con ENTER. 

Ancora una volta, tutto il programma a partire dalla 
nuova REM subirà l’effetto dei nuovi attributi. 
Mostriamo ora come si può ad un certo punto annulla¬ 
re, a partire da una certa linea del programma, l’effetto 
degli ultimi caratteri di conti olio inseriti. Ammettendo 
che dalla istruzione 300 si voglia tornare ad un listato 
normale (nero su bianco), si posizionerà il cursore di 
editing sulla linea 290 immediatamente precedente (ad 
esempio con LIST 290) e si richiamerà la linea con 
EDIT (Caps SHIFT + 1). Con l’uso dei tasti delle 
“frecce” (5 ed 8) ci si porterà a fondo linea. 

A questo punto: ( 

• premere i due SHIFT assieme (modo E); 

• premere tasto 7 (PAPER bianco); 

• ripremere i due SHIFT; 

• premere Caps SHIFT + tasto 0 (INK nero); 

• ripremere i due SHIFT (nell’ipotesi che fosse in atto 
FLASH 1); 

• premere Caps SHIFT + tasto 8 (FLASH 0)(c.s.); 

• terminare con ENTER. 

Il resto del listato a partire dalla linea 300 sarà tornato 
normale. 

E evidente che, tenendo ben conto dei modi per Pinseri- 
mento dei caratteri di controllo sopra citati, è possibile 
modificare a piacimento le varie parti di un programma, 
sia agendo su intere sezioni, che su parti di un’istruzio¬ 
ne, sia entro le stringhe (fra le “”), assegnando gli attri¬ 
buti che si desiderano. Nel caso delle stringhe essi, oltre 
a risaltare nel listato, agiranno pure in fase di esecuzione 
del programma, con la stampa della stringa con quegli 
stessi attributi. 


Un caso molto particolare di applicazione dei concet¬ 
ti ora esposti consiste nel mascheramento di una parte o 
addirittura di tutto il programma, salvo per il 1° numero 
di linea .. Sarà sufficiente usare per INK e PAPER 
inseriti con caratteri di controllo valori (codici) eguali, 
rendere invisibile il listato (almeno sino a quando, edita¬ 
ta nella parte inferiore dello schermo la prima linea del 
programma, non si proceda a cancellare con DELETE 
(Caps SHIFT + 0) gli invisibili caratteri di controllo 
posti dopo il numero di linea, concludendo naturalmen¬ 
te con il reinserimento della linea con ENTER. 

Ci resta da illustrare il modo di inserimento e di applica¬ 
zione dei caratteri di controllo relativi alla seconda 
parte della nostra tabellina (terza colonna). Innanzitut¬ 
to occorre chiarire che qui l’inserimento, con qualche 
eccezione che vedremo, può avvenire solo tramite la 
funzione CHR$ seguita dal numero di codice del parti¬ 
colare carattere di controllo. Con l’eccezione però del 
solo codice 8, che, come illustra a sufficienza il Manuale 
d’uso del solito Capitolo 16, può servire a sovrapporre 
due caratteri previa retrocessione di uno spazio operata 
appunto dal CHRS8, gli altri caratteri di controllo tro¬ 
vano scarsa utilità se impiegati assieme a PRINT (od 
INPUT), perché sostituibili più direttamente e chiara¬ 
mente con i comandi diretti degli attributi o di posizio¬ 
namento (TAB, AT, virgola, apice). Vi sono tuttavia 
alcune applicazioni particolari e poco note che merita 
ricordare. 

Quando in un programma capiti di dover frequente¬ 
mente cambiare, spesso ripetendoli, i comandi per gli 
attributi temporanei in determinate stampe, come per 
esempio PRINT FLASH 1; BRIGHT 1; ...seguiti poco 
oltre da PRINT FLASH 0; BRIGHT 0;... (naturalmen¬ 
te potrebbe trattarsi anche di altri tipi di attributi, modi¬ 
ficati spesso in modo temporaneo), può risultare utile 
assegnare detti attributi ad una variabile stringa: così 
per es. con LET a$ = CHR$1+CHR$3 si potrà sostitui¬ 
re il primo dei due comandi citati, anche ripetutamente 
nel programma, con PRINT a$; si può utilizzare un’a¬ 
naloga assegnazione per gli altri attributi che ristabili¬ 
scono le condizioni normali. 

Vi è anche un modo più sottile ed elegante, anche se 
meno chiaro (e questo a volte può essere desiderato dal 
programmatore) per ottenere il medesimo scopo. L’as¬ 
segnazione ad a$ si farà per esempio così: 

• impostare LET a$ = ”; 

• premere i due SHIFT assieme; 

• premere Caps SHIFT + tasto 9 (FLASH 1); 

• premere i due SHIFT; 

• premere tasto 9 (BRIGHT 1); 

• impostare le ” di chiusura seguite da ENTER. 

Una applicazione non descritta altrove riguarda inve¬ 
ce il comando SAVE. 

Se può interessare che un programma venga salvato in 
modo che all’atto del ricaricamento con LOAD il suo 


104 












I SEGRETI DEI PERSONAL 


nome spicchi con certi attributi (colore, lampeggio,...), 
e magari in una posizione determinata dello schermo 
(ad esempio caricando un programma composto di più 
parti, il nome completo venga a comporsi al centro dello 
schermo a mano a mano che si caricano le varie sezioni 
di nastro, magari colorando diversamente varie parole, 
e raggiungendo così nomi più lunghi dei 10 caratteri 
solitamente ammessi), si può utilizzare il comando SA¬ 
VE con queste varianti: 

a) SA VE CHR$ 16 + CHRS n + “nome” (doveji è il 
codice di colore INK, 0 t7) 

oppure SA VE “(modo E) (Caps SHIFT + tasto jq) 
nome" 

(naturalmente invece del carattere di controllo 16 per 
INK ci può essere un altro per controllo di un diverso 


attributo, o più-in fila); 

b) SAVE CHRS23 + CHRS £ + “nome” (dove ce il 
numero di colonna a partire da cui verrà stampato il 
“nome”) 

oppure SAVE CHRS 23 + “(c) nome" (numero e nome 
di seguito, senza spazi); 

c) SAVE CHRS 22 + CHRS r + CHRS c + “nome” 
(dove j;, c sono il numero di riga e di colonna della 
posizione da cui verrà stampato “nome”). 

Nei casi b) e c) naturalmente si potrà anche aggiungere 
il/i carattere/i di controllo per gli attributi, come in a). 
Provate qualcuno di questi SAVE (badate solo che il 
nome va accorciato per non superare i IO caratteri 
complessivi per singolo SAVE) e osservate cosa succede 
al LOAD! 


TEXAS TI99 4/A 


Ring 

di Sergio Borsam 

Il gioco Ring, in versione TI Extcnded BASIC viene 
presentato in questa rubrica in quanto consente di illu¬ 
strare una tecnica semplice, ma efficace di animazione 
che si basa sulla ridefinizione continua dei caratteri. 
Ormai i lettori più smaliziati conoscono le prestazioni 
del microprocessore grafico TMS99I8A che recente¬ 
mente è stato adottato da più di dieci case costruttrici di 
micro nello standard MSX. Altresì sono note le possibi¬ 
lità offerte dal modulo TI Extended BASIC per la crea¬ 
zione ed il controllo degli sprite, cioè degli ormai cosid¬ 
detti spiritelli o disegni mobili sullo schermo. Già, per¬ 
ché senza gli sprite non sarebbe possibile riprodurre la 
complessità, la molteplicità e la velocità dei movimenti 
che generalmente richiede un gioco. 

Delle istruzioni grafiche dell’Extendcd BASIC si è già 
parlato diffusamente in altri articoli (vedi Gli spiritelli. 
Bit Maggio 1984); in questa sede non è necessario parla¬ 
re di esse dettagliatamente. Quello clic invece merita 
maggior risalto e che sembra caratterizzante in questo 
programma è l’ampia definizione e ridefinizione di ca¬ 
ratteri grafici per consentire la rappresentazione dei 
pugili nelle varie posizioni e rendere il più possibile 
realistiche le immagini in tutte le fasi dell’incontro. 

I caratteri grafici definibili dall’utente non sono molti. 
Essi possono andare dal numero 32 di codice ASCII al 
numero 143, in tutto 112. Di questi, i primi 96 sono già 
definiti ed il loro uso per la grafica comporta la rinuncia 
o, ad esempio, delle lettere minuscole o addirittura di 
qualsiasi testo scritto. Tenendo poi conto del fatto che 
gli sprite definiti su una matrice di 8x8 pixel risultano 
troppo piccoli e che è da preferirsi un pattern 16x16 con 
una CALL MAGNIFY(3), si comprende come sussista¬ 


no evidenti limitazioni. 

In questo gioco ogni figura è composta da tre sprite 
aventi le dimensioni di 16x16 pixel. Il primo sprite for¬ 
ma il busto, il secondo le gambe ed il terzo, di diverso 
colore, i calzoncini e le scarpette. In tutto quindi sono 
necessari 12 caratteri per ogni figura in una determinata 
posizione. Il movimento tuttavia richiede la creazione di 
più sprite per la stessa figura. Se si pretendesse di defini¬ 
re all’inizio del programma tutti i caratteri che in esso 
verranno usati, si sarebbe costretti a gravi rinunce ed a 
ricorrere si e no ad un paio di pose stereotipate che 
renderebbero tremendamente noiosa l’azione. E questo 
il motivo per cui si è ricorsi alla tecnica, un po’ inconsue¬ 
ta, di ridefinire più volte nel corso del programma gli 
stessi caratteri per mezzo di subroutine. In questo modo 
è stato possibile attribuire ad ogni pugile otto posizioni 
per il busto e cinque per le gambe, consentendo la loro 
visione di fronte, di fianco, da seduti e a terra o con il 
braccio alzato in segno di vittoria. In tutto sono stati 
definiti 203 caratteri, ben oltre il numero di quelli utiliz¬ 
zabili contemporaneamente. La tecnica consiste nell’u- 
sare un gruppo di caratteri e, durante le pause dell'azio¬ 
ne, ridefinire i caratteri di un altro gruppo. Nel momen¬ 
to in cui si usano questi ultimi si definiscono i caratteri 
di un altro gruppo ancora e così via. E importante che il 
gioco preveda delle pause naturali, come in questo caso 
l’intervallo tra un round e l’altro, perché la definizione 
dei caratteri comporta un certo tempo e non sarebbe 
possibile farlo durante lo svolgimento dell’azione. 

1 risultati sono stati così soddisfacenti che, come tocco 
finale, non si c voluto rinunciare nemmeno alla ragazza 
che porta il cartello con il numero del round successivo! 
Manca invece l’arbitro, ma si assicura ugualmente un 
comportamento ineccepibile da parte dei pugili che non 
trattengono e non portano mai colpi sotto la cintura. 

Dopo l’apparizione del titolo il programma prosegue 
premendo un tasto qualsiasi. L’utente può indicare a 
piacimento i nomi del campione e dello sfidante c deve 
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specificare se usa i joystick oppure no. Un’errata rispo 
sta causerebbe un messaggio d’errore durante l’esecu 
zione del programma. In mancanza di joystick il con 
trollo avviene, naturalmente, tramite la tastiera. Le dm 
alternative conducono ad uno svolgimento dell’aziom 
sostanzialmente analogo: tuttavia i joystick sono racco 
mandabili non solo in quanto il loro uso è più naturai» 
ed immediato, ma anche perché essi producono movi 
menti composti. Infatti il controllo da tastiera avvieni 
con quattro tasti (quelli con le frecce per il pugile d 
sinistra) più uno per tirare un colpo mentre con i joy 
stick valgono anche le altre quattro posizioni interme 
die, cioè in alto a destra, in basso a sinistra, ecc. li 
pratica il pugile, può avanzare e contemporaneament< 

k 

k 

: 

i 

assumere la guardia bassa oppure retrocedere tirando 
un colpo, ecc. 

Per i joystick valgono le seguenti regole. Alto: guardia 
alta; basso: guardia bassa; destra: spostamento a destra; 
sinistra: spostamento a sinistra; bottone di fuoco: parte 
un colpo alto o basso a seconda della posizione assunta 
dal pugile. Per la tastiera è previsto l’uso di determinati 
tasti e precisamente quelli con le frecce più il tasto Q, 
come bottone di fuoco, per il concorrente di sinistra; i 
tasti I, J, K, M più il tasto P per il concorrente di destra. 
Nella istruzione CALL KEY sono state definite le tastie¬ 
re 1 e 2 con le quali i tasti assumono determinati valori, 
diversi dai codici ASCII (vedi manuale a pag. 91 ) e che si 
ripetono identicamente sulle due metà della tastiera che 

Listato 1. Il programma Ring. 


CALL HCHAR ( 14+J,24+J,44) : : NEXT J 

330 FOR J=1 TO 3 :: CALL HCHAR(20+J,3,35 

100 REM RING 


,28) : : NEXT J 

1 10 REM a*************** 


340 CALL VCHAR(17,3,45,4) :: CALL VCHAR ( 1 

120 COLL CLEAR 


2,9,45,4):: CALL VCHAR ( 12,24,45,4) : : CAL 

130 DISPLAY AT ( 12,12) ! "R I N G" 


L VCHAR(17,30,45,4) 

140 CALL HCHAR(9,11,42,13): : CALL VCHAR < 


350 FOR J = 1 TO 3 : : CALL HCHAR(11+J,10,4 

10,11,42,5):: CALL VCHAR ( IO,23,42,5) : : C 


2,14) : : NEXT J 

ALL HCHAR(15,11,42,13) 


360 FOR J=1 TO 3 : : FOR K=1 TO 5 : : CALL 

150 CALL KEY(0,K,S> : : IF S=0 THEN 150 


HCHAR ( 16+J-K,3+K,40) : : CALL HCHAR ( 10+J + 

160 CALL CLEAR 


K,24+K,41 ): : NEXT K :: NEXT J 

170 DISPLAY AT(1,1):"SCRIVI IL NOME DEL 


370 GOSUB 1440 :: CALL SPRITE(«10,96,2,1 

CAMPIONE. " 


12,80,#11,100,2,128,80,«9,104,8,128,80) 

180 DISPLAY AT<2,1) : "CHE ME DICI DI BIG 


380 CALL MAGNIFY(3) 

HAMMER?" 


390 CALL SF'RI TE < #20,96, 2,112, 160, #21,100 

190 ACCEPT AT(4,1)SIZE<12) : CPM$ 


,2,128,160,#19,104,9,128,160) 

200 DISPLAY AT(6,1 ): "ED ORA SCRIVI IL NO 


400 DISPLAY AT(1,1):" CAMPIONATO DEL 

ME DELLO" 


MONDO 

210 DISPLAY AT(7,1):"SFIDANTE." :: ACCEP 


410 DISPLAY AT(3,1):"CAMPIONE:" :: DISPL 

T AT(9,1):SFD* 


AY AT(4,1):CPM* 

220 DISPLAY AT(12,1):"HAI I JOYSTICK? (Y 


420 DISPLAY AT(3,15):"SFIDANTE:" :: DISP 

/N)” :: ACCEPT AT(12,24)SIZE(1)VALI DATE( 


LAY AT(4,15):SFD* 

“YN"):R$ 


430 DISPLAY AT(5,1):"ALT.: 185 CM ALT.: 

230 IF R$="Y" THEN J0Y=1 : : GOSUB 2120 E 


182 CM" 

LSE J0Y=0 


440 DISPLAY AT(6,1):"PESO: 105 KG PESO: 

240 DISPLAY AT(20,1):"BENE. ORA PREMI UN 


102 KG" 

TASTO PER” :: DISPLAY AT(21,1):"COMINCI 


450 DISPLAY AT(7,1):"VINTE: 65 VINTE 

ARE. " 


: 53" 

250 CALL KEY(0,K,S): : IF S=0 THEN 250 EL 


460 DISPLAY AT(8,1):"PERSE: 2 PERSE 

SE CALL CLEAR 


: 4" 

260 CALL CHAR(40,"0102040810204080">:: C 


470 DISPLAY AT(9,1):"PARI: 1 PARI: 

ALL CHAR(41,"8040201008040201"): : CALL C 


3" 

HAR(42,"FF"> 


480 FOR TIME=1 TO 2000 :: NEXT TIME 

270 CALL CHAR(35,"FFFFFFFFFFFFFFFF") 


490 CALL HCHAR(1,1,32,288): : CALL COLOR( 

280 CALL CHAR(43,"0103070F1F3F7FFF"): : C 


1,5,1):: CALL SCREEN(11): : CALL COLOR (2, 

ALL CHAR(44,"80COE0F0F8FCFEFF") 


12,1) 

290 CALL CHAR(36,"3F7F7D5555554444”): : C 


500 FOR J=1 TO 12 :: CALL HCHAR(J,1,35,1 

ALL CHAR(45,"FFFFFFFFFFFFFFFF") 


2-J): : CALL HCHAR(J,13-J,37) 

300 CALL CHAR(37,"FFFEFCF8F0E0C080"): : C 


510 CALL HCHAR(J,19+J,38): : CALL HCHAR(J 

ALL CHAR(38,"FF7F3F1F0F070301") 


, 20+J , 35,12— J ) : : NEXT J 

310 CALL COLOR (1,7,1):: CALL COLOR(2,12, 


520 C(1)=80 :: C(2)=160 :: GOSUB 1480 

1) 


530 CALL SPRITE(#9,128,8,128,C(1)-4,#10, 

320 FOR J = 1 TO 6 :: CALL HCHAR<14+J,9-J, 


120,2,112,C<1),#11,124,2, 128,C<Ì)-4> 

43):: CALL HCHAR(14+J,10-J,45,14+2*J): : 


540 CALL SPRITE(#19,116,9,128,C(2)+4,#20 
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Seguito listato Ring. 

,108,2,112,C(2),#21,112,2,128,C(2)+4) 

350 BOSUB 1550 :: CALL SDUND (1000,-1, 1 ) 

560 TT=0 :: P(1),P<2)=0 :: F<1),F(2)=1 : 

: RDUND=1 :: PB=2 :: W=-l 

570 PG=P6+W 

580 IF J0Y=1 THEN 660 

590 CALL KEY(PG,K,S): : IF S=0 THEN CALI 
PATTERN(#PG*10,132-PG*12):: F(PG)=1 : : G 
CITO 900 

600 IF K=5 THEN X=0 : : Y=4 : : GOTO 670 

610 IF K=0 THEN X=0 :: Y=-4 :: GOTO 670 

620 IF K=2 THEN X=-4 :: Y=0 :: GOTO 670 

630 IF K=3 THEN X=4 :: Y=0 :: GOTO 670 

640 IF K=18 OR K=11 THEN 810 

650 GOTO 900 

660 CALL JQYST(PG,X,Y) 

670 IF X=0 AND Y=Ò THEN 800 
600 IF X=0 THEN 740 

690 CALL DISTANCE(#10,#20,DD): : IF DD<60 
AND SGN(X)< >W THEN 740 
700 IF C(PG)+X>200 THEN 740 
710 IF C(PG)+X>50 THEN C(PG)=C(PG)+X :: 
CALL LOCATE(#PG*10, U2,C(PG) ,#PG*10+1, 12 
8, C(PG)+4*W,#PG*10-1,128,C(PG)+4*W) 

720 IF PG=1 THEN Zl=76 :: Z2=80 ELBE Zl= 
64 : : Z2=68 

730 CALL PATTERN(#PG*10+1,Z1,#PG»10-1,Z2 
) 

740 IF Y=0 THEN 800 
750 IF Y=4 THEN 780 

760 F(PG)=2 :: IF PG=1 THEN Z=84 ELSE Z= 
136 

770 CALL PATTERN(#PG*10,Z): : GOTO 800 
780 F(PG)=1 :: IF PG=1 THEN Z=120 ELSE Z 
= 108 

790 CALL PATTERN(#PG#10,Z) 

800 CALL KEY(PG,K,S): : IF S=0 THEN 900 
010 IF PG=1 THEN 840 

820 IF F(PG)=1 THEN Z=132 ELSE Z=140 
830 GOTO 850 

840 IF F(PG)=1 THEN Z=72 ELSE Z=88 
850 CALL PATTERN <#PG*10,Z): : KK(PG)=F(PG 
) 

860 CALL DISTANCE(#10,#20,DD): : IF DD>60 
THEN 900 

870 CALL SOUND(100,-7,10) 

880 IF KK(PG)< >F(PG-W)THEN P(PG)=P(PG) +1 
890 IF P(PG)>100 THEN 990 

900 TT=TT+l :: IF TT>200 THEN CALL SOUND 
(1000,-1,1):: GOTO 1230 
910 NN=INT(RND*2> +1 
920 IF PG=1 THEN 950 

930 IF NN=1 THEN Zl=112 :: Z2=116 :: GOT 
0 970 

940 ZI=64 :: Z2=6B :: GOTO 970 

950 IF NN=1 THEN Zl=124 :: Z2=12B :: GOT 

0 970 

960 ZI=76 :: Z2=80 

970 CALL PATTERN<#PG*10+1,ZI,#PG*10-1,Z2 
) 

980 W=-W : : GOTO 570 


990 IF PG=1 THEN 1040 

1000 CALL PATTERN(#9,128,410,120,411,124 
) : : GOSIIB 1700 

1010 CALL L0CATE(#9,128,C(1)-16,#10,128, 
C(l),#11,128,C(1)—16) 

1020 CALL PATTERN(#10,96,#11,100,#9,104) 
:: CALL LOCATE(#20,96,160,#21,112,164,#1 
9,112,164) 

1030 CALL PATTERN(#20,108): : GOTO 1070 
1040 CALL PATTERN(#19,116,#20,108,#21,11 
2) : : GOSUB 1660 

1050 CALL LOCATE(#19,128,C(2)+16,#20,128 
,C(2),#21,128,C(2)+16): : CALL L0CATE(#10 
,96,80,#11,112,76,#9,112,76) 

1060 CALL PATTERN(#20,96,#21,100,#19,104 
):: CALL PATTERN(#10,120) 

1070 KD=KD+1 :: P(1)=P(1>-10 :: P(2>=P(2 
) -10 

1080 FOR TIME=1 TO 1000 :: NEXT TIME 
1090 C ( 1 > =80 :: C(2>=160 :: CALL DELSF'RI 
TE(ALL) 

1100 CALL SPRITE(#9,128,8,128,C(l)-4,#10 
,120,2,112,C(1>,#11,124,2,12B,C(l)-4> 
1110 CALL SPRITE(#19,116,9,128,C(2)+4,#2 
0,108,2,112,C(2),#21,112,2,128,C(2)+4) 
1120 IF FLAG=1 THEN 1140 
1130 IF KD<5 THEN 900 
1140 GOSIJB 1440 

1150 CALL PATTERN(#10,96,#11,100,#9, 104) 
:: CALL LOCATE(#11,128,80,#9, 128, 80) 

1160 CALL PATTERN(#20,96,#21,100,#19,104 
):: CALL LOCATE(#21,128,160,#19,128,160) 
1170 GOSUB 2080 :: CALL PATTERN(#PG*10,6 
4,#PG*10+1,68) 

1180 CALL HCHAR(14,PS#10+2,62) 

1190 IF PARI< >1 THEN 1210 

1200 CALL PATTERN(#20,64,#21,68): : CALL 

HCHAR(14,22,62) 

1210 FOR TIME=1 TO 3000 :: NEXT TIME 
1220 CALL DELSPRITE(ALL): : CALL CLEAR :: 
END 

1230 CALL PATTERN(#9,128,#10,120,#11,124 
):: CALL PATTERN(#19,116,#20,10B,#21,112 
) 

1240 R0UND=R0UND+1 :: IF R0UNDM2 THEN 1 
410 

1250 GOSUB 1740 :: CALL HCHAR(19,5,36): : 
CALL HCHAR(19,28,36) 

1260 CALL L0CATE(#10,124,34,#11,140,34,# 
9,140,34):: CALL LOCATE(#20,124,208,#21, 
140,208,#19,140,208) 

1270 CALL PATTERN(#10,132,#11,136,#9, 140 
):: CALL PATTERN(#20,84,#21,88,#19,92) 
1280 FOR TIME=1 TO 2000 :: NEXT TIME 
1290 GOSUB 1810 :: ON ROUND-1 GOSUB 1860 
,1880,1900,1920,1940,1960,1980,2000,2020 
,2040,2060 

1300 CALL SPRITE(#25,64,2,90,180,#26,68, 

2, 106, 180,#24,76,14,98,180,#27,80,7,74,1 
80) 

1310 G=2 :: CALL MOTION(#25,0,-3,#26,0,- 

3, #24,0,-3,#27,0,-3) 

1320 FOR TIME=1 TO 50 :: NEXT TIME :: CH 
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Ring- 

così resta divisa in due parti distinte ma con analoga 
funzione. 

Dopo le presentazioni, all’inizio del combattimento, i 
concorrenti non devono far altro che avvicinarsi e co¬ 
minciare a darsele di santa ragione premendo i bottoni 
di fuoco; i punti vengono assegnati in modo imparziale 
dal programma con un criterio fin troppo semplice: 
ottiene un punto un colpo alto che trova l’avversario in 
posizione bassa o viceversa un colpo alla figura che 
trova l’avversario in guardia alta. A proposito, non 
dimenticate di alzare il volume del televisore perché non 
mancano gli effetti sonori e attenti a non maltrattare 
troppo le levette dei joystick che non paiono particolar¬ 
mente robuste! 

Descrizione del listato 
100-150 - Titolo. 

160-250 - Richiesta dei nomi dei pugili e dell’uso dei 
joystick. 

260-310 - Definizione dei caratteri e dei colori per la 
scenografia. 

320-480 - Stampa dei preliminari con la presentazione 
dei pugili. 

490-560 - Inizio del combattimento. 

570-980 - Ciclo per il controllo del movimento. 
590-650 - Comandi per il movimento tramite la tastiera. 
660 - Istruzione per interpretare i segnali del joystick. 



La J .soft 

CERCA 

per la nuova rivista Super Apple 

un redattore da assumere, 
con ampia e provata 
conoscenza dei sistemi Apple. 

Si richiede la buona 
conoscenza della lingua inglese, 
residenza Milano/dintorni. 
Inviare curriculum completo a 
J.soft - Via Rosellini, 12 
20124 MILANO 


Seguito listato Ring. 

=70+G :: CALL PATTERN(#26,CH) 

1330 CALL POSITIQN(#25,5Y,SX): : IF SX>70 
THEN G=-B : : GOTO 1320 
1340 CALL MOTION(#25,0,0,#26,0,0,#24,0,0 
,#27,0,0) 

1350 FOR TIME=1 TO 1000 :: NEXT TIME :: 
CALL DELSPRITE(#27,#24,#25,#26) 

1360 GQSUB 1480 :: CALL PATTERN(#10,120, 
#11,124,#9,128): : CALL PATTERN(#20,108,# 
21,112,#19,116) 

1370 CALL LOCATE(#10,112,80,#11,128,76,# 
9,128,76):: CALL LOCATE(#20,112,160,#21, 
128,164,#19,128,164) 

1380 CAL.L HCHAR ( 19,5, 45) : : CALL HCHAR(19 
,28,45):: CALL SOUND(1000,-1,1) 

1390 CALL SOUND(1000,-1,1) 

1400 GOSUB 1550 :: TT=0 :: W=-W :: C(l)= 
80 :: C(2 > =160 :: GOTO 570 
1410 IF P(1)=P(2)THEN PG=1 :: PARI=1 :: 
FLAG=1 : : GOTO 1090 

1420 FLAGRI :: IF P ( 1 ) >P (2) THEN F'G^l :: 
GOTO 1090 

1430 PG=2 :: GOTO 1090 

1440 CALL CHAR(96,"01030303013D7F7F7F7F6 
F6F6747477780C0C0C080BCFEFEFEFEF6F6E6E2E 
2EE" > 

1450 CALL CHARUOO, "F7D7C777060606060606 
060606060E3EEFEBE3EE60606060606060606060 
707C") 

1460 CALL CHAR(104,"07070707070700000000 
000606060E3EE0E0E0E0E0E0000000000060606G 
707C") 

1470 RETURN 

1480 CALL CHAR(108,"000000000307070703"& 
BPT$ ( "O", 16 ) &" 183C3C3C9C8E9FFFFF7F1F1E1E 
1E1E”) 

1490 CALL CHAR(112,RPT$("01",16)&"F0F0F0 
FOF 0F0F0F0B0988C8C88888888") 

1500 CALL CHAR(116,"01010101010100000000 
00000101030FB0B0B0B0B0B00000000000008C8C 
8E98") 

1510 CALL CHAR(120,"00183C3C3C3971F9FFFF 
FEF87B7878780OO0OO0OCOEOEOEOCO"&RPT$("0" 

, 14) ) 

1520 CALL CHAR(124,"0F0F0F0F0F0F0F0F0D19 
313111111111"&RPT$("80",16)) 

1530 CALL CHAR(128,"ODODODODODODOOOOOOOO 
000031317119COCOCOCOCOCOOOOOOOOOOOOOS080 
COFO") 

1540 RETURN 

1550 CALL CHAR ( 132, "0000000060F0FF7F"SìRP 
T*("0", 16) .V OC1E1E1E0C3EFFFF3F3F3F1F1E1E 
1E1E")' 

1560 CALI CHAR(136,"00000000030707071B3C 
3C1C06030100000000000080B0F0FCFEFEFFFFDF 
8F0F") 

1570 CALL CHAR(140,RPT$("0",20)&"317F7F3 
0000000307B7B783C1E3F7FFFFFBF1E1E1E1E") 
1580 CALL CHAR(64,"0101030307070F0E1C181 
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Seguito listalo Ring. 

8181B1S1 (318F0F0F0FBFBFB3B38180C0C0C0C0C0 

c:oc m ) 

1590 CALL CHAR<68,"010103030606000000000 
000181B38FB7070707BFBF80000000000000C0C0 
EOE") 

1600 CALL CHAR(72,"3078787S307CFFFFFCFCF 
CFB7878787800000000060FFFFE"S<RPT* ( "0" , 16 
) ) 

1610 CALL CHAR < 76,"OFOFOF1F1F1F1C1C18303 
03O3Q303030B08OCOC0E0E0F070381S1B1B1B181 
818" > 

1620 CALL CHAR(SO,"0E0E0E1E1F1F000000000 
000303070708080COC06060000000000000181B1 
C1F" ) 

1630 CALL CHAR(B4,"OOOOOÓOOOOO1010F3F7F7 
FFFFFFBF1F000000000C0E0E0E0DB3C3C3860C08 
000") 

1640 CALL CHAR(88,"000C1E1E1E3C70FCFEFFF 
FFD7B787B7B " &RPT$ ( " O ", 20 ) & " 8CFEFE0C0000 " 

> 

1650 RETURN 

1660 CALL CHAR(96,"000000000000000307070 
70F1E1E1FOF000000001F3F7FFFFFFCB0B03030F 
OFO” ) 

1670 CALL CHAR(100,"0000000080F0F8FCFCFC 
FCFCFCE3FFFC"&RPT$<"0",32)) 

1680 CALL CHAR(104,"000000000000083CDCDC 
DCDCDCCO"&RPT$ ( "0" , 2B) V60F0FB08" ) 

1690 RETURN 

1700 CALL CHAR(96,"OOOOOOOOF8FCFEFFFF3FO 
DODOCOCOFOFOOOOOOOOOOOOOOCOEOEOEOF0787SF 
8F0" ) 

1710 CALL CHAR ( 100, RF'T$ ( "0" , 24) V060F1F1 
00000000001OF1F3F3F3F3F3F3FC7FF3F") 

1720 CALL CHAR(104,RPT$("0",24)&"060F1F1 
0000000000000103C3B3B3B3B3B030000") 

1730 RETURN 

1740 CALL CHAR (84, RPT$ ( "0" , 26) V030F1E00 
00000030787B7B30387C7EFEFE3E3E") 

1750 CALL CHAR(88,"ICOFOFOFOCOCOCOCOOOOO 
000000000003EFEFEFE"&RPT*<"0",24)) 

1760 CALL CHAR(92,"OOOOOOOOOOOOOCOC1C7C0 
00000000000003A760E7E7C"&RF'T* < "0" , 22) ) 
1770 CALL CHAR ( 132, 11 OOOOOOOOOC1E1E1EOC1C 
3E7E7F7F7C7C&RPT* ( "0" , 26) &"C0F078" ) 

1780 CALL CHAR(136,"7C7F7F7F"&RPT*<"0",2 
4)&"38F0F0F030303030383E0000000000") 

1790 CALL CHAR(140,"5C6E707E3E"&RPT$("O" 

, 34 ) ?< " 3030383EOOOOOOOOOOOO" ) 

1800 RETURN 

1810 CALL CHAR(64,"101808040402030101030 
707030IOIDI020204E4EBFB70F8D89080B080B0C 
OEO" ) 

1820 CALL CHAR ( 6B, " 0101030307060C0C0C080 
80B0B0C1424EOEOCOCOCOCOC0603030202020305 
090") 

1830 CALL CHAR(72,"010101030303070707030 
10101010304EOEOEOCOCOBOBOBOBOBOCOC0302BA 
OAO" ) 

1840 CALL CHAR(76,"0000080C06030303"&RPT 
*("0", 26)&"80COE06020000000000000") 


1850 RETURN 

1860 CALL CHAR(80, "FFFFF8F0E3E3FFFFFCF1E 
3E3E0E0FFFFFFFF1F0FC7C7C70F1F7FFFFF0707F 
FFF" ) 

1B70 RETURN 

1BB0 CALL CHAR(80,"FFFFF8F0E3E3FFFFFFFFE 
3E3F0FBFFFFFFFF1F0FC7C7C70F0FC7C7C70F1FF 
FFF") 

1890 RETURN 

1900 CALL CHAR <80,"FFFFFFFFFEFCF9F3E7E0E 
0FFFFFFFFFFFFFF8F0F0F8FBF8F8F07078F8F07F 
FFF") 

1910 RETURN 

1920 CALL CHAR(80,"FFFFE0E0E7E7E0E0FFFFE 
7E7F0F8FFFFFFFF0707FFFF1F0FC7C7C7C70F1FF 
FFF") 

1930 RETURN 

1940 CALL CHAR(80,"FFFFF8F0E3E3E0E0E3E3E 
3E3F0F8FFFFFFFF1F0FC7FF1F0FC7C7C7C70F1FF 
FFF") 

1950 RETURN 

1960 CALL CHAR <80,"FFFFE0E0E7FFFFFEFCF8F 
BF1F1F1FFFFFFFF0707C7BF1F3F7FFFFFFFFFFFF 
FFF") 

1970 RETURN 

1980 CALL CHAR(80,"FFFFF8F0E3E3E3F0F0E3E 
3E3F0FBFFFFFFFF1F0FC7C7C70F0FC7C7C70F1FF 
FFF") 

1990 RETURN 

2000 CALL CHAR(80,"FFFFF8F0E3E3E3E3F0F8F 
FE3F0F8FFFFFFFF1FOFC7C7C7C70707C7C70F1FF 
FFF”) 

2010 RETURN 

2020 CALL CHAR(80,"FFFFF3E3C3F3F3F3F3F3F 
3F3F3E1FFFFFFFF8703333333333333333303B7F 
FFF") 

2030 RETURN 



Figura I. Pei ottenere un'azione più ricca e realistica sono 
stali definiti più volte, net corso del programma, gli stessi 
caratteri per un numero complessivo di 203 caratteri, ben 
superiore quindi a quelli normalmente disponibili. 
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Ring- 

670-790 - Controllo della posizione dei pugili sul ring, 
della loro distanza reciproca e della posa assunta. 

800 - Controllo dei “bottoni di fuoco" dei joystick odei 
tasti programmali per far partire i colpi ai pugili. 
810-870 - Controllo della forma assunta dai pugili nel¬ 
l’atto di colpire l’avversario. Se il colpo è andato a 
segno, la linea 870 produce un rumore. 

880-890 - Punteggio assegnato dal programma ai pugili 
in base ai colpi andati a segno. Se un contendente subi¬ 
sce più di 80 colpi subisce un atterramento. 

900 - Controllo del tempo per determinare la durata dei 
round. 



Figura 2. Il controllo dei movimenti avviene o tramite 
tastiera o meglio con ijoystick. Manca l'arbitro, tuttavia i 
pugili si comportano in modo molto corretto, non tratten¬ 
gono né colpiscono sotto la cintura. 



Seguito listato Ring. 

2040 CALL CHAR(80,"FFFFF3E3C3F3F3F3F3F3F 
3F3F3E1FFFFFFFFCFBF0FCFCFCFCFCFCFCFCF87F 
FFF " ) 

2050 RETIJRN 

2060 CALL CHAR<80,"FFFFF3E3C3F3F3F3F3F3F 
3F3F3E1FFFFFFFF870333F3F3E7CF9F3F3F0303F 
FFF" ) 

2070 RETURN 

2080 CALL CHAR(64,"01030303013D7F7F7F7F6 
F6F674747478CCCCCDC9CBCF8F8F0F0F0F0E0E0E 

0E0" ) 

2090 CALL CHAR <68,"F7D7C7770606060606060 
60606060E3EEOECEOE0606060606060606060607 
07C" ) 

2100 CALL CHAR <62,"1C1C1C0808080808") 
2110 RETURN 

2120 DISPLAY AT(14,1):"JOYSTICK 1 PUGILE 
DI DESTRA" 

2130 DISPLAY AT<16,1):"JOYSTICK 2 PUGILE 
A SINISTRA" 

2140 DISPLAY AT<18,1):"RILASCIA IL TASTO 
ALPHA L0CK" 

2150 RETURN 


910-970 - Istruzioni per produrre un certo movimento 
nei pugili anche in assenza di istruzioni specifiche. 

980 - Assegnazione del controllo alternativamente ai 
due pugili e rinvio all’inizio del ciclo. 

990-1130 - Routine per l’atterramento di un pugile. La 
linea 1070 modifica il punteggio per consentire la ripre¬ 
sa dell’incontro ma dopo 5 atterramenti la linea 1130 fa 
terminare l'incontro. 

1140-1220 - Routine per il termine dell’incontro. Si alza 
il braccio del vincitore. 

1230-1400 - Routine per l’intervallo tra un round e 
l’altro. 1 pugili si siedono e compare la ragazza con il 
numero del round successivo. 

1410-1430 - Controllo del punteggio al termine dei 12 
round. 

1440-1470 - Subroutine per la definizione dei caratteri 
per rappresentare i pugili di fronte. 

1480-1540 - Definizione dei caratteri per rappresentare i 
pugili nella posizione base. 

1550-1650 - Definizione dei caratteri per rappresentare i 
pugili nelle varie pose assunte durante il combattimen¬ 
to. 

1660-1690 - Definizione dei caratteri per il pugile di 
destra al tappeto. 

1700-1730 - Definizione dei caratteri per il pugile di 
sinistra al tappeto. 

1740-1800 - Subroutine per definire i caratteri che rap¬ 
presentano i pugili seduti. 

1810-1850 - Subroutine per la definizione dei caratteri 
che rappresentano la ragazza che porta il cartello con il 
numero del round. 

1860-2070 - Varie subroutine, richiamate dalla linea 
1280, per definire ad ogni round i caratteri per il cartello 
con il numero corrispondente. 

2080-2110 - Definizione dei caratteri per rappresentare i 
pugili con il braccio alzato in segno di vittoria. 
2120-2150 - Messaggio sull’uso dei joystick. 

Principali variabili 

CPM$, SFD$ - Nome del campione e dello sfidante. 
JOY - Variabile flag per indicare l’uso dei joystick. 
C(l), C(2) - Contengono i numeri di colonna, in pixel, 
della posizione degli sprite rappresentanti i pugili. 

TT - Variabile per il controllo del tempo. Viene incre¬ 
mentata di un’unità ad ogni ciclo. 

P(l), P(2) - Punteggi dei due contendenti. 

F(l), F(2) - Atteggiamento o posizione assunta dai pugi¬ 
li. Il valore 1 indica una guardia alta mentre il valore 2 
una guardia bassa. 

ROUND - Memorizza il numero del round. 

PG - Assume i due valori, I o 2. in riferimento al pugile 
cui spetta il controllo in un dato istante. 

W - Variabile di controllo. Ad ogni ciclo cambia il suo 
valore da -1 a +1 controllando il contenuto della varia¬ 
bile PG. 
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FACILI CAMBIAMENTI 

COLORI: MIGLI ELEMENTI SCENOGRAFICI. Con un apparec¬ 
chio televisivo in bianco e nero si impone l’uso di colori contrastanti 
dal momento che molli risultano quasi indistinguibili tra di loro. 
Con un televisore a colori invece si possono utilizzare tutti gli 
abbinamenti con i 16 colori. In questo caso si devono modificare le 
linee 310 e 490. 

COLORE DE! PUGILI. Essendo questi degli sprite, a nulla servono 
le istruzioni CALL COLOR. Il colore, in questo caso, è definito 
dalla terza costante contenuta tra parentesi nell'istruzione CALL 
SPRITE. Si ricorda che il pugile di sinistra è associato agli sprite #10 
e #11, mentre i suoi calzoncini sono lo sprite #9; il pugile di destra c 
dato invece dagli sprite #20 e #21, mentre i suoi calzoncini sono lo 
sprite #19. Pertanto le linee da modificare sono tutte quelle che ad 
essi si riferiscono. 

DURATA DEI ROUND. La durala dei round è determinata dall'i¬ 
struzione IF THEN contenuta alla linea 900. Attualmente ogni 
ripresa termina quando IT raggiunge il valore 200. Scrivendo al suo 
posto un numero maggiore, ovviamente, si allunga la durata c 
viceversa. 

DETERMINAZIONE DEL PUNTEGGIO. Attualmente il punteggio 
t stabilito alla linea 8X0. Semplicemente si assegna un punto se viene 
tirato un colpo alla figura mentre l’avversario c in guardia alta, 
oppure se un colpo al volto trova l’avversario in guardia bassa. Si 
può sostituire la linea 880 con una routine che determini il punteggio 
in base a criteri più complessi. 

PRIMO ATTERRAMENTO. Il primo atterramento si verifica quan¬ 
do uno dei due pugili abbia subito 100 colpi validi ai fini del punteg¬ 
gio. Generalmente ciò non si verifica prima di 8-10 riprese. Se si 
desidera accelerare i tempi basta modificare la linea X90 scrivendo, 
ad esempio: IF P(PG) >50 THEN 990. 

NUMERO DEGLI ATTERRAMENTI. Quando si verifica un atterra¬ 
mento i punteggi dei due pugili vengono diminuiti entrambi di 10 
unità e l'incontro prosegue. Dopo 5 atterramenti, di uno o di en¬ 
trambi i pugili, l'incontro termina per KO. Cambiando la linea 1130 
si può consentire un numero maggiore o minore di atterramenti. 


X, Y - Variabili di stato dei joystick. In base al loro 
valore si produce una particolare azione. 

ZI, Z2-Variabili di lavoro contenenti icodici ASCII dei 
caratteri definiti via software, rappresentanti i due pugi¬ 
li. 

TIME - Variabile di controllo dei loop per creare delle 
pause. 

KD - Numero degli atterramenti subiti dai due pugili. 
FLAG - Variabile (lag che assume il valore 1 al termine 
delle 12 riprese. A differenza del KO, in questo caso, è 
previsto il pareggio. 

K, S-Usate nell’istruzione CALL KEY, indicano rispet¬ 
tivamente il numero di codice ASCII del tasto premuto 
e lo stato della tastiera. 

J - Variabile di lavoro per il controllo dei cicli FOR 
NEXT. 



Figura 3. La tecnica usala con i cara!ieri grafici definiti 
via software consente una cena libertà e limiti meno 
angusti. Nel programma non si è voluto rinunciare nem¬ 
meno alla ragazza che, durante l'intervallo, porta il car¬ 
tello con il numero de! round seguente. 


in un colpo 
d’occhio ••• 



... il panorama completo 
di tutte le attività italiane. 

l’Annuario Generale Italiano 
viene letto da milioni di esponenti politici, governativi, 
amministrativi, industriali, bancari c finanziari. 

Viene consultato da coloro che studiano, riflettono, 
valutano ed alla fine... decidono. 


GUIDA MONACI 

ANNUARIO GENERALE ITALIANO] 


00117 NOMA • Via F. Crlapl. 10 - Tal. 00/4*3.401 • Tal#* «13402 MONACI 
20145 MILANO • Via V Monti. 44 - Tal. 02/345*5*7 • Tata* 33204» MONACI 


111 



















Apple 


Vendo per Apple II - Ile programmi di ogni genere ad ottimo 
prezzo. Dispongo di gestionali, giochi, utilità, tra cui Apple 
Wnter. Personal Data Base. VisiCalc, LOGO. ProDOS. LISP, 
ingegneria, grafica... Agoslino Carollo • Via Lungo Leno Destro, 
21 - 38068 Rovereto (TN) - Tel 0464/31190 

Medici utenti Appio contatterebbero colleghi per lo scambio di 
esperienze coi personal computer e per la creazione di un pool 
di programmi applicativi adattoalle esigenze mediche Dr Mat¬ 
teo Pioto - Via Bandiera. 48 - 20099 Sesto S. Giovanni (MI) • Tel 
02/2424537 

Compro e cambio programmi por Apple li euro. Qualsiasi tipo di 
programma mi va bene, comprerei anche stampante per Apple 
in buono stato e modico prezzo. Temistocle Sidoti - Via Can¬ 
dido. 41 - 10127 Torino - Tel. 011 /6053805 

Vendo programmi per Apple II e Macintosh altamente profes¬ 
sionali, su richiesta anche personalizzazioni. Luigi Pnlumbo - 
Via A Ristori. 8 - 00197 Roma - Tel 06/802783 

Vendo Apple II plus 48 Kbyle più unità disco, stampante grafi¬ 
ca. varie schede di interfaccia Dispongo di vario software su 
diskette. Molti programmi originali Franco Vagli • Napoli - Tel. 
081/7233050 _ _ 

Dispongo di oltre 400 programmi per Apple N e compatibili 
Desidero effettuare scambi con altri appassionati Inviatemi la 
vostra lista e spedirò la mia Rispondo a tutti. Isabella Bottini • 
Via Galilei. 681 - 18030 Sanremo (IM) - Tel. 0184/882095 

Vendo Apple II 64 Kbyte. due drives. monitor 12”. stampante 
Honywell 132 colonne, interfaccia parallela, paddles. PROM- 
Minus. modulatore TV. vastissimo software professionale con 
manuali. Tutto a L. 3.100.000 Antonio Balzarini • Via Del Vigna. 
189 - 57100 Livorno - Tel 0586/422276 
Causa cambio sistema vendo per Apple II 10 dischetti doppia 
faccia con oltre 50 programmi di giochi e utilità (Flight Simula¬ 
tor. Atzec. Visidex. PFS. ecc.) a L 100.000 Bruno Rota - Via 
Passo d. Bri zio. 6-20148 Milano - Tei 02/408243 


Commodore 


Per CBM 64 cambio programmi e giochi solo su cassetta 
Possiedo anche molti listati Cerco inoltre utenti CBM 64 nella 
zona di Palermo. Inviatemi le vostre liste o telefonate oro pasti. 
Umberto Pirozzuolo - Via Gustavo Roccella. 233 - 90128 Paler¬ 
mo - Tel 091/423314 

Cerco floppy disk drive per C64 in buone condizioni Telefona¬ 
re ore pasti Roberto Ambrosi - Via Vittorio Alfieri. 19 - 54100 
Mass a - Tel. 0585/40023 

■ Per CBM 64 vendo oltre 1.000 programmi su disco e ■ 

■ cassetta. Cambio solamente con nuovi arrivi Come occa- ■ 

■ sione vendo nastro con 20 giochi a L 50.000 Telefonare o ■ 

■ richiedere lista a: Fabio Fontana • Via CaioCanuteio. 136 - ■ 

g 00174 Roma - Tel 06/7482345 | 

Cambio, vendo programmi per CBM 64. Ne possiedo circa 300, 
tutti di ottima qualità a prezzi bassissimi. Richiedere liste gratui - 
te Rispondo a tutti, massima serietà Telefonare o scrivere a 
Giuseppe Mascali - Via R Margherita. 573 - 98028 S Teresa 
Riva (ME) - Tel 0942/791692 

Cambio, vendo, compro programmi per CBM 64. Annuncio 
sempre valido, richiedere lista Assunta Lama • Via G. Rossmi. 4 
• 19100 La Spezia 

Vendo Turbotape per CBM 64 a sole L 15.000. Offro inoltre 
Pole Position e molti altri giochi a prezzi trattabili Se interessati 
spedire la vostra lista giochi Risponderò con la mia Luca 
Boscolo - Via Marinella. 83 - 30028 S. Michele al Tagliamento 
(VE) - Tel. 0431/57215 _ 

Vendo 30 giochi a L. 5.000 l'uno per CBM 64. Gestionali a prezzi 
vari. Cedo inoltre libro originale Inglese con 25 giochi a L 
35.000. Offerta sempre valida. Cerco contatti con Commodore 
Club. Christian Fassetta • Via Stress, 48 - 00135 Roma * Tel 
06/3492628_ _ 

Vendo. PET/CBM 3032 L 750 000opiu registratore L 800000 
Omaggio circa 40 programmi Tutto in ottimo stato e con ma¬ 
nuale in italiano Telefonare dopo le 20.30. Athos Passarmi - 
Via Zen a. 25 - 40 065 Pianoro (BO) - Tel 051/771126 

Vendo per VIC 20 giochi In LM e In BASIC anche espansi (8 
Kbyte) Alcuni giochi.Traxx, Uomo Jet Pac Man. Frog o molli 
altri. Invio la lista dei giochi gratuitamente. Roberto Zannonl - 
Via Biancardi. 9 - 20075 Lodi (MI) - Tel. 0371/53847 

Vendo per C64 I più recenti giochi ed Utilities con Istruzioni a 
prezzi modici. Scrivere o telefonare Mario Berardo - Via Vitto¬ 
rio Emauele. 165 - 12042 Brà (CN) • Tel 0172/421777 


Compro, vendo giochi por Commodore 64 in zona Tonno. 
Angelo Tosti • Via G Bove. 1 - 10129 Torino - 011/504994 

Vendo, causa passaggio a sistema superiore. VIC 20 con rogl- 
stratore dedicato, joystick. 3 manuali. 1 cassetta con 40 giochi 
stupendi, molte riviste o più di 300 programmi Ottimo condizio¬ 
ni. L 380 000 Giovanni Azara - Via Peonie. 3 - 20089 Rozzano 
(MI) - Tet. 8240807 __ 

Vendesi per C64 combinatore telefonico comprendente inter¬ 
faccia elettronica e software Prezzo L 55 000 tutto compreso 
Scrivere o telefonare a Roberto Aliano - Via Migliarono. 3 • 
10091 Alpignano (TP) • Tel 011 /9672206 __ 

Cambio programmi per CBM 64 Possiedo molli games. utility. 
Programmi per velocizzare la lettura/regislrazione dati regi¬ 
stratore. Cerco programmi duplicatori disco. L'annuncio è 
sempre valido. Paolo Farri - Via Matteucci. 53-41100 Modena 
- Tel. 059 /354025 _ 

Cambio, compro, vendo più di 100 programmi a prezzi imbatti¬ 
bili. con Turbo (in omaggio), che aumenta di 10 volto il carica¬ 
mento. Esempi: Decathlon. Zaxxon. Flip Flop. One On One. 
Magic Desk, ecc Luca Gandola - Via Marconi. 412 • 18038 
Sanremo (IM) - Tel 62046 

Vendo per Commodore 64 circa 200 giochi Koala joystick. 
Sam Reciter. Turbotape. Screen Graphics. Magic Desk e tanti 
altri. Il prezzo massimo dei programmi è di L 10.000 Scrivere o 
telefonare a. Rosario Cnstaudo - Via Mengarini. 11 - 95122 
Catania - Tel. 095/474624 

Compro, cambio, vendo programmi per CBM 64 Solo zona 
Catania Fabio Bellassai - Via Cesare Lombroso. 13 - 95100 
Catania (CT) - Tel 095/ 415353 _ 

Vendo, cambio favolosi video game per C64 Offerta sempre 
valida. Dispongo inoltre di Sintetizzatore Vocale Desidero con¬ 
tattare possessori di linguaggio macchina Scrivereo telefona¬ 
re. Armando Aquino • Via Appia. 8 - 83042 Atripalda (AV) • TEI. 
0825/626498 _ 

Vendo programmi di giochi, utilità e gestionali per Commodore 
64 (oltre 1.500), Apple. Spectrum e QL Vendo interfaccia pro¬ 
grammabile per Spectrum e modem per Commodore 64 Mau¬ 
rizio Carola - Via L Lilio. 109 - 00143 Roma - Tel. 06/5917363 

Cerco per C64 Pascal con manuale. In cambio offro fino a 10 
programmi (Decathlon. Sam Reciter. Easy Script. Baseball. 
Buck Rogers. DataBase. Manager. Dr. J & Larry Bird Go One 
On One ed altri 100) Sergio Di Nardo - Via Monte Ve’ino. 15 * 
67100 L'Aq uila -JTel 0 862/61633 _ 

1.000 programmi per Commodore 64 e Spectrum ti aspettano 
computer Club - Casella Postale 7220 - 16166 Genova Quinto 
Attenzione! Vendo e cambio fantastici programmi dal prezzo 
bassissimo, scrivetemi! Risposta assicurata! Flavio Chianese - 
Via Virgilio. 17 - 34170 Gorizia - Tel. 0481/3318 

Vendo più di 300 programmi su nastro e disco per C64 a L. 
2.000 - 5.000. Posseggo ultimissime novità, disposto anche allo 
scambio. Per ulteriori informazioni rivolgersi a: Alessandro 
Grossi - Via Dario Campana. 19 - 47037 Rimini (FO) - Tel. 
0541/773458 

Vendo programmi per C64. giochi e utilità in Turbo Tape Alcuni 
esempi: Pac Man. Zaxxon. Magic Desk. Simon BASIC Richie¬ 
dere lista, annuncio sempre valido. Luigi 8ettini • Via Venezia. 
121 - 30039 Suà (VE) _ 

Vendo, cambio piu di mille programmi per Commodore 64. 
quasi tutti i videoglochi esistenti più moltissime utility e pro¬ 
grammi gestionali Prezzi imbattibili; scrivere o telefonare dopo 
le 19. Marco Coletti • Via Principe. 56 - 38010 Mollaro(TN) - Tel 
0463/39181 

Compro o cambio qualsiasi programma su cassetta o solo 
listato per C64 Inviare eventuali liste con prezzi. Annuncio 
sempre valido Scrivetemi Marco Costantino • Via Trento. 63 • 
38086 Pmzofo (TN) - Tel 0465/51610 

Vendo oltre 250 programmi accuratamente selezionati per C64 
90% m LM. non copiati da riviste su disco o cassetta Esempio 
Decathlon. One On One). Prezzi da L 4.000 a L 13 000 Severi¬ 
no Mondany • Via Versaglio. 8 - 26010 Crema 
Cambio e vendo software 64. posseggo molti programmi anche 
di utilità, vendo a prezzi modicissimi. Inviate la vostra lista ed io 
invierò la mia. Massima serietà, programmi ottimi Massimiliano 
Prunesti - via Alzavole. 20 • 00169 Roma - Tel 06/2678447 

Vendo oppure cambio programmi per 3000 • 4000 • 8000 aperti 
con manuale Ho anche programmi e giochi per 2000 e pro¬ 
grammi e giochi per C64. con ultime novità dalla Germania e 
dagli USA. Giuseppe Dallago - Via Stradone Vecchio. 12 - 
38019 Tuenno (TN) - Tel 40260 


Cambio software di ogni genere per Commodore 64. esclusi¬ 
vamente di persona, ondo evitare truffe, presso il mio domicilio 
o altrui nella zona dei Castelli Romani Floppy o cassetta, 
eclusa vendita. Silvano Funghi • Via Cola di Rienzo. 5 • 00047 
Marino Laziale (RM) - Tel. 06/9386320 


Cambio, vendo software per Commodore 64 Disponibili oltre 
600 programmi giochi, utility e gestionali. Serietà Cerco stam¬ 
pante MPS801 o Seikosha 550. Claudio Lause - Via Pietro 
Micca. 10 - 13051 Biella (VC) 


Cambio, vendo per C64 oltre 150 programmi di giochi e molti di 
utility. Per l’eventuale invio di liste scrivere o telefonare ore 
pasti Si assicura la massima serietà e prezzi bassissimi Carmi¬ 
ne Parrella • Via T. Mommsen. 2 • 82100 Benevento - Tet 
0824/48068 

Vendo per Commodore 64 200 programmi tra I più baiti in 
circolazione: Koala Joystick. Sam Reciter. Mundial Soccer. 
Copy Cartucce. Turbotape. Pole Position Alari e tanti altri 
Scrivere o telefonare. Rosario Cnstaudo - Via G Menu 
- 95122 Catania Tel 095/474624 

Cambio/vendo a prezzi stracciati programmi per C64 Dispon¬ 
go di moltissimi giochi in LM e 3D. Utilities e gestionali con 
manuali in inglese e in italiano. Inviare e richiedere la lista 
Roberto Franzoso • Piazza Medaglie d’Oro, 6 - 14100 Asti 

Vendo e cambio ottimi programmi originali per C64 a prezzi 
bassissimi Annuncio sempre valido Gaetano Pagano - Via 
Papa Giovanni XXIII. 2 - 80041 Boscoreale (NA) - Tel 
081/8584933 

Compro, cambio, vendo molti programmi per Commodore 64 
Richiedere il listino, prezzi da regalo. Per acquisti superiori alle 
L 50.000 ulteriori sconti Cerco manuale in italiano del pro¬ 
gramma Chess 7.0 Fabrizio Rizzi - Castello 3060 B - 30122 
Venezia - Tel 041 /22883_ 

Vendo Extended BASIC CBM 64 completo di Istruzioni a L. 
40.000 Pietro Nieddu • Via Bianchi. 1 - 07100 Sassari 

Cambio oltre 800 programmi per Commodore 64. Offro massi¬ 
ma serietà Rispondo a tutti. Inviare liste e proposte a Fabrizio 
Rauca - Via Terme di Traiano. 38 - 00053 Civitavecchia (RM) - 
Tel 0766/29988 

Cambio, vendo programmi per VIC 20 inespanso Inviate o 
richiedete lista Possibilità di scambi a mano nella zona di 
Novara o Milano Cassetta con 20 programmi a scelta a L 
20.000 spese incluse Paolo Beltrammi - Via D’Enricis. 38 - 
28100 Novara (NO) Tel 0321/457441 

Cambio, vendo programmi di vario genere per CBM 64. La 
maggior parte è velocizzata tramite "Turbotape" Presenti nelle 
liste programmi di notevole interesse (S.A M , Simon. Panora¬ 
ma HR. ExBASIC. ecc.). Paolo e Massimo - c/o Selema Spazio 

SpA - Tel 43682111 

Serve un programma o una procedura realizzata, su Commo¬ 
dore 64 o Olivetti M20. da un programmatore professionista 
Allora, solo per la Lombardia: Silvestro Gabba - Via R Rossi. 
54/i - 27020 Domo (PV) - Tel 0382/848085 

Vendo VIC 20 più 16 Kbyte RAM. 8 Kbyte RAM. 3 Kbyte RAM. 
Hi-Res. Vie Mon. Tool Kit. Mother Board. Programmatore di 
EPROM Vendo programmi per C64 Inoltre vendo 6116 C- 
DOS. Telefonare ore 19-20 Nicola Pedroli - Casella Postale - 
20080 Cigliano (MI) - Tel 901887 _ 

Attenzione 1 Appello rivolto a tutti gli utenti di C64 umbri: è nato a 
Foligno il “Follgnòs 4C", il primo Commodore Club umbro. 
Sede centrale a Foligno, sedi m allestimento in Umbria Foli- 
gnòs 4C • Voc. S Andrea. 17 - 06031 Bevagna (PG) - Tel 
0742/72591_ 

■ Vendo per Commodore 64 1 videogame più 1 floppy disk ■ 

■ per L 20 000 e altro software a prezzi convenienti Telefo- ■ 

■ nare ore pasti Maurizio Coccorese - Via Gentile. 108/D - ■ 

■ 70126 Bari - Tel 080/491374 ■ 


Cambio e vendo meravigliosi giochi per VIC PO L’annuncio è 
sempre valido, scrivetemi o telefonatemi, inviandomi le vostre 
liste. Ciao, vi aspetlo. Giovanni Tatangelo - Via Gramsci. 15 - 
26013 Crema - Tel 0373/81146 

Vendo, per passaggio ad altro sistema. Commodore 64 più 
registratore. |oy (aventi 4 mesi di vita), giochi in LM Ira cui Jump 
Man. Pii Stop. Donkcy Kong. Calcio, ecc. Turbotape. il tutto a L 
650000 trattabili Giuseppe Maio • Via S Gaetano. 5 • 82100 
Benevento 


Siamo due ragazzi che hanno il VIC 20 e lo Spectrum Vendia - 
mo a prezzi bassissimi programmi di qualsiasi tipo Risposta 
assicurata! Cerchiamo disperatamente "Chiave'' per VIC 20 
Luca Maccechim - Via Virgilio. 27 - 34170 Gorizia - Tel. 
0481/89110 


Il Club 64 di Torino cerca contatti in tutt'ltalia. Abbiamo circa 
3 000 programmi, spediteci la vostra lista e ricoverata la nostra 
Oppure telefonate per informazioni Virga Giovanni - Via Fra¬ 
telli Garrone. 67/36 • 10127 Tonno - Tel 011/6061336 


Cambio, vendo mollissimo software per CBM 64 tra cui. Hulk 
Match 2. Pitfall 2. Hero. Space Taxi. Girus Bruco Lee. Flight 
Simulator 2 con istruzioni in italiano Telefonatemi o scrivetemi, 
rispondo a tutti Dante Pisanello - Via Catalani. 63 • 20131 
Milano - Te l 02/28 29512 

Per Commodore 64 e Sinclair Spectrum. disponendo di un 
notevole archivio software vendo cassetta con 5 giochi a scelta 
a L 10.000 Disponibile anche su disco Annuncio sempre 
valido Ivano Parbuono • Via A di Cambio. 4 • 37138 Verona • 
Tel 045/568649 


Vendo VIC 20 piu registratore, joystick, manualo "Alla scoperta 
del VIC 20”. 10 cassette di videogiochi. cavetti, libro istruzioni 
Tutto usato pochissimo e in perfetto stato a sole L 260000 
Giuseppe Zitarosa • Via Cumoio. 12 - 15057 Tortona (AL) - Tel 
0131/81234 
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Vendo Mailing Liti scritto interamente in LM E'originale per¬ 
ché o scritto da me Possiede ottime caratteristiche (è in italia¬ 
no). Gira su SX 64 0 CBM 64 più disco. Andrea Rigom - Via 
Giuseppe Verdi. 16 - 35031 Abano Terme (PO) - Tel 
049/811447 


Compro, vendo, cambio programmi per Commodore 64 Invia¬ 
re lista, risponderò a lutti Annuncio sempre valido Alfredo 
Benlncasa • Via Buccini. 4 • 81100 Caserta (CE) - Tel 
0823/324778 

Per cessazione sistema vendo programmi per CBM 64 Giochi 
Donkey Kong. Polo Position. Trtad. ecc utility: mutuo, gestione, 
magazzino, futuri investimenti, ecc. Invio lista gratuitamente 
Guido Nocciolim - Via P Nenm. 6 - 53100 Siena - Tel 288564 

Scambio programmi per CBM 64 Ne possiedo più di 300. Ira 
giochi e utility Inviatemi la vostra lista, rispondo a tutti con la 
mss»ma serietà Annuncio sempre valido Claudio Bosso - Via 
Danimarca (Marano). 4 - 80016 Napoli - Tel 081/7423570 

Eccezionale* Vendo migliaia di programmi per Commodore 64 
Giochi come: Circus Charlie. Hyper Oltmpics. Dracul centinaia 
di utility come Totoprofessional. ecc Telefonatemi» Domenico 
Gallò - Casella Postale. 36 - 88029 Serra San Bruno (CZ) - Tel 
0963/71210 

Cambio, vendo software per C64 tra cui Decathlon (Activision). 
Polo Position (Alari), Enduro (Epyx). ecc Inviare liste. Inoltre 
cerco manuale dol Simon's BASIC (anche in inglese) Massimo 
Fuoco - Via Q. Ennio. 70 - 72021 Francavilla Fontana (BR) - Tel 
0831/941736 

Vendo Commodore con registratore e due joystick. Simon s 
BASIC con 114 comandi. Turbo Tape, diversi giochi (Calcio. 
Decathlon. Pitfall 2. ecc). guida al computer a L 900 000 Loren¬ 
zo Longagna - Via Piave. 20-7 - 17100 Savona 

Vendo software per C64- Buck Rogers. Lazanan Decathlon. 
Quix. Seafox. Skramble. Zaxxon. Pole Position. Larry Bird. For- 
bidden Foresi. Dig Dug. Arcadia. Pacman. Simon's BASIC, 
equazioni. Turbotape a L 30000. Andrea Screti - Via France¬ 
sco Durante. 7 - 00151 Roma - TEI. 06/5313666 

Sinclair 

Si ò costituito il Computer Club Ciriè per utenti Sinclair. Oltre 
500 programmi, libri 0 riviste a disposizione dei soci. Per infor • 
maziom scriverò allegando bollo 0 telefonare Pasqualo Spe¬ 
ranza - Loc Vnstalln. 80 - 10073 Ciriè (TO) - Tel 011/9236137 

Possiedi uno Spectrum? Allora leggi bene questo annuncio, 
inviami In lista dei tuoi programmi e riceverai immediatamente 
la mia Creeremo un rapporto di scambio Fabnzto Martano • 
via Don Slurzo. 7 - 58100 Grosseto 

Cerco possessori di Sinclair ZX81 nella mia città 0 zone kmitro- 
fe per scambio informazionielistatcercoancheprogrammiper 
ZX81 da 16 Kbyte RAM Scrivere e/o telefonare a: Vincenzo 
Parta - Via Dant. 63 - 90141 Palermo - Tel 091/324552 

Vendo Sinclair ZX Spectrum 48 Kbyte con tastiera professiona - 
le. interfaccia Kempston. presa monitor, manuale italiano. 5 
libri, fotocopio riviste, manuali vari e 35 nastri con 500 program¬ 
mi. Contattatemi* Salvatore Ferrante - Viale Regina Margarita. 
59 - 98100 Messina - Tel. 090/45033 

Amici utilizzatori dello Spectrum è nato II Bit Sinclair Club per 
Torino. Orbassano 0 tutta la cintura Diventiamo amici» Sergio 
Battaglmi. 25 • 10126 Torino - Tel 011/6942208 

Vendo por Spectrum interfaccia joystick programmabile Prez¬ 
zo trattabile, per informazioni 0 ordini telefonare a Andrea Tron 
- Via Raviolo. 8 - 10064 Pinerolo (TO) - Tet 73442 

Vendo Spectrum 80 Kbyte. interfaccia programmabile. Super- 
face, tastiera Newnovel. 4 libri m italiano, interfaccia Kempston 
con joystick, materiale vario, oltre 250 programmi, sene com¬ 
pleta di Run - LoadRun più program Antonio Rescaldam • Via 
Roma. 50 20024 Garbagnate (MI) - Tei. 02/9958867 

■ Totti vendono computer, noi vendiamo I migliori program- ■ 

■ mi per Spectrum e Commodore 64 Tutta l'ingegneria, la ■ 

■ grafica, gestionali, giochi, copiatori fantastici Richiedere ■ 

■ lista gratuita 0 telefonare Giordano Bifolchi - Via G Nel |f 

■ Corso. 111 - 53045 Montepulciano (SI) - Tel 0578/757907 ■ 

■ 716397 

Vendo software per Spectrum 48 Kbyte. tratto solo con In zona 
di Catania Fabio Bellnssni - Via Fratelli Bandiera. 13 - 95100 
Catania • Tel 095/415353 


Vendo Sinclair Spoctrum 48 Kbyte quasi nuovo piu Interface 1. 
microdrive, numerosi programmi e riviste a L 600 000 Telefo¬ 
nare Franco Guerrini - Slr S. Fermo. 17 - 37121 Verona - Tel 
045/39464 


Cedo, causa passaggio a sistema superiore, oltre 200 pro¬ 
grammi per ZX Spectrum a L 500 per 16 Kbyte e L I000per48 
Kbyte Solo cassette da mimmo 10 programmi per 48 Kbyte e da 
20 programmi per 16 Kbyte Richiedere lista Ferdinando Mira¬ 
gli - Via Avellino. 9 -81100 Caserta - Tel 0823/444102 

Vendo una espansione a 48 Kbyte per Spectrum 16 Kbyte 

(issue 283) composta da banco 8 RAM 32 Kbyte. 4 integrati 
logici (74LS157 - 74LS00 - 74LS32) piu complete istruzioni per 
ri montaggio il tulio a L 60000 Paolo Chiartano - Via M. 
Piccoli. 36 - 10081 Castellarmele (TO) • Tei 0124/581088 

Vendo Sinclair Spectrum 16 Kbyte uso mimmo perfetto e com¬ 
pleto di accessori e manuali, più di 30 giochi, gestionali (VuFile 
c VuCalc). ecc. su cassetta L. 280000 Arturo Magno - Via A 
Diaz . 6 - 39100 Bolzano - Tel 0471/36075 

Cambio più di 900 programmi per lo ZX Spectrum. Se hai delle 
novità e/o più di 400 programmi, scrivimi, allegando la tua lista 
Luigi Ballestm-Via Martiri della Libertà. 376/11 - l8038Sanre- 
mo (IM) 

Vendo Sinclair ZX81. imballaggio originale, manuale m italiano. 
"66 programmi con lo ZX81 Giochiamo con ZX81". cassette 
giochiti KbyteArcadianeGamesl). Tutto a L 165.000. Michele 
Rapm - Via Don Bosco. 19 - 60127 Ancona - Tel 071 /89622S 
Vendo programmi per ZX Spectrum 16/48 Kbyte a L 1.500 
cadauno. Molti programmi m omaggio per ordini superiori alle 
L. 10 000 Si prega di telefonare ore pasti per accordi Massimo 
Nucci - Via Chimera. 22 - 52100 Arezzo • Tel 0575/351195 
Cambio, vendo per Spectrum olire 230 programmi di ogni tipo, 
giochi, utility, adventure La lista dei programmi è gratuita Ven¬ 
do per joystick interfaccia programmabile a tastiera aL 35.000 
Antonio Scarpa - Via Moro. 63/12 - 30035 Mirano (VE) - Tel. 
4355254 


Texas 


Cerco modulo Extended BASIC per Texas Tl 99/4A Disposto 
offrire al massimo L 90 000 Telefonare a: Vito Angelillo - Via al 
Castello. 9 - 100 90 Buttigliera Alta (TO) - Tel 011/932013 
Causa militare vendo TI 99/4A. alimentatore, cavo registratore, 
modulatore TV. manuale, cassetta giochi (Bioritmi. Master 
Mind. ecc). Scacchi 9 livelli (SSI ottimo stato a L 350000 
trattabili Giovanni Qoiombo • Via G Rossrni. 4 • 24047 Treviglio 
(BG) - Tet 0 363/41565 

Non gettare il tuo Tl 99/4A. se il tuo Field-Engmeer non può 
ripararlo Compro Tl 99/4A danneggiati, rotti, inservibili a prez¬ 
zi da concordare Compro anche hardware nelle stesse condi¬ 
zioni Gian Luigi Calzolaro - Via M della Benedicta. 3/12 - 
16010 Rossiglione (GE) - Tel. 010/925447 

Vendo Tl 99/4A piu cavo por registratore, cartuccia gioco, 
joystick Texas, cassetta con 8 programmi, programmi su carta, 
lutto poco usato a L. 250000 trattabilissime Francesco Dia- 
mnnii - Via Ippolito Nievo. 62 - 00153 Roma • Tel. 06/5897466 

Vendo per Tl 99/4A programmi di vario genere in Tl BASIC su 
cassetta elettrotecnica, matematica, ragioneria, memorizza - 
zione buste paga, calendario perpetuo (anche utilizzando 
maschere video) Telefonare ore pasti Marco Pedrom - Via 
Mazzini. 22 - 26100 Cumon» - Tet 0372/37266 _ 

Cerco per Tl 99/4A modulo Extended BASIC funzionante, 
completo di manuale d'uso e/o giochi su nastro o carthdge. 
Tratto con Milano e periferia Marco Riva • Via Jenner. 10 - 
201159 Milano - Tel 02/6883733 

Aiuto 1 Cerco disperatamente connettore per interfaccia con 
registratore a cassette per Tl 99/4A. sono disposto a pagare 
somme astronomiche! Cerco anche Extended BASIC d’occa¬ 
sione e software vano. Francesco Pipitone - Via Isgrò. 79 - 
91025 Marsala (TP) - Tel 0923/952528 

Vendo ad ottimo prezzo coppia joystick e cartridges Calcio. 
Scacchi, Dadi. Tombstone City. Parsoc 0 Munch Man. in bloc¬ 
co o separatamente per Tl 99/4A Telefonare ore pasti Andrea 
Perota - Via De Gaspen. 47 • 20025 Legnano (MI) - Tel. 
0331/54301 


Varie 


■ Eccezionale* La più lunga lista di software per 1 computer ■ 

■ Sharp MZ-80A/B/K/700. Quasi 800 titoli originali Dis- ■ 

■ pongo di gestionali. Utilities, giochi.interpreti. DOS. CP/M. | 

■ ecc Scrivete* Davide Ardizzota - Via Roma - 18016 S | 

■ Bartolomeo Mare (IM) - Tel 0183/401830 g 

Vendo "Enciclopedia di Elettronica e Informatica" Jackson, 
otto volumi rilegati a L 200.000. sposo postali a mio carico. 
Angiolo Tavanti • Via Felice Battaglia. 6 40135 Bolofna - Tel 
051/436843 


Cambio strabiliante quantitativo di software per i computer 
Sharp MZ 80A/K/B. MZ 700 e Commodore 64. Scrivete tutti e 
chiedete la lista con oltre 500 titoli per computor. Davide Ardiz- 
zola - Via Roma - 18016 S Bartolomeo Mare (IM) - Tel 
0183/401830 


Vendo macchina da scrivere elettronica Olivetti ET 351 con 
unità floppy disk e Word Processor e con quattro margherite 
Usata pochissimo. L 5 300.000 Claudio Impellizzeri - Via G 
Ferrari. 11 - 10124 Tonno - Tet 011/87801 


Vendo A L 30.000 (incluse spese postali) dischetto con pro¬ 
grammi d ogni genere per il mlcro Z80 N.E. Spedizione in 
contrassegno Telefonare o scrivere. Mario Di Floriano - Via 
Anello Del Sole. 125 - 33074 Fontanafredda (PN) • Tel 
0434/999071_ _ 

Vendiamo software su cassetta più istruzioni dettagliate e re¬ 
make dei programmi fra I quali troverete games. utility, didatti¬ 
ca. Disponiamo di 5 cassette a L. 7.000 cadauna. Raili Gabrielo 
- Via Carlo Rotaelli. 113 - 96016 Lentini - Tel. 095/945079 

Vendo HP41C più due moduli di memoria più modulo di mate¬ 
matica a L 300.00 vendo Texas Tl 58C a L. 50.000. Antonio 
Mormile • Via Tosco Romagnola. 1766 - 56023 Cascina (PI) • 
Tel 050/777542_ 

Vendo consolle Intellevlslon nuovissima (Giugno ’84) ancora in 
imballo originale più 3 cariucce: Burger time. Calcio. Space 
battie. Tutto alla strabiliante somma di L 400.000 trattabili (valo¬ 
re L 510.000). Alessandro DAndrea - Via Principe Umberto. 
129/bis - 98100 Messina - Tel 090/57126 

Vendo pocket computer Casio FX702P completo di interfaccia 
FA2. stampante FP10 e numerosi programmi al prezzo di L 
300.000 trattabili Telefonare ore 19 • 21. Mauro Squaiella - Via 
O Vigltani. 201 - 10126 Tonno - Tel 011/616945 

Vendo e cambio programmi di ogni genere. Posseggo oltre 300 
programmi, parecchi appena giunti dagli USA. Accetto iscrizio¬ 
ni per Club negli USA Roberto Repetti - P.le Barbieri. 3 - 43100 
Parma - Tel. 0521/50009 


Disponiamo di ottimi programmi gestionali per CBM 64 - Hew¬ 
lett Packard 150. Disponibilità usato, accessori, periferiche 
CBM 64 e HP150. Richiedere lista a: Pocket Group - Via Amo¬ 
ruso. 34 - 70124j)ari_ 

Vendo software su cassetta per Casio PB-100 inespansa. Per 
ricevere l'elenco scrivere a Fabio Di Donna - Via Cupa Mcedo- 
nia. 11 - 80137 Napoli - Tel 081/290015 

Vendo novità americane tra cui Bruce Lee. Football manager, 
Cosmic Kanga. F15 Strike Eagie. Spitfire Ace. Valahalfa. e mol¬ 
tissimi altri Accetto anche scambi Giuliano Peleggi - Via G. 
Torniellr. 10 - 00151 Roma - Tei 06/5280434 

Vendo computer Nuova Elettronica composta da 40 Kbyte 
RAM e interfaccia per floppy disk oppure cambio con CBM 64. 
Ezio Gazzola - Via Gavirate. 16 - 20148 Milano (MI) • Tel. 
02/406115 _ 

■ Vendo programma per Sharp MZ-700: ine. e speso ■ 

■ con 2 cod. po. (bianco e nero) provvisto di spiegazioni ■ 

■ registrato su cassetta a L 15.000. Telefonare ore pa- ■ 

■ sti. Nicolo Bellettieri - Via A Righi, 34 - 50047 Prato ■ 

■ (FI) - Tel. 583039 g 

■ Vondo amico 2000 48 Kbyte RAM interfaccia seriale ■ 

■ parallela opzionale grafica, tastiera standard. 2 disk ■ 

■ driver, monitor b/n 9"; tutto a L 2500.000 Vendo ■ 

■ inoltre mini robot Soft Power collegabile all'Amico ■ 

■ 2000. Teiefonare ore pasti Claudio Marascalchi - Via ■ 

■ Milesi. 11 • 30174 Mestre (VE) • Tel. 041/955143 ■ 

Vendiamo programmi di ogni genere per CBM 64. V1C 20. 
Spectrum. Tt 99/4A Inoltre per 1 computer Commodore anche 
cassette. Richiedere la lista a Giuseppe Costanza • Via Celimi, 
8 - 10024 Monetàri (TO) - Tel. 011 /6069872_ 

Cambio giochi e utility su nastro o dischetto con medesimi. 
Sono mollo interessato agli utility. Pierpaolo Palazzo - Via 
Ciccarono. 80 - 66054 Vasto (CH) - Tel. 0873/4071 

Cambio, vendo utility per proteggere e sproteggere: Clone. 
Unguard. Mimlc 5. Supercopy. Software gestionale per medici, 
ingegneri, dentisti, magazzino. RTTY, CW. Amtor. Data Baso 0 
giochi originali 1984 Paolo Sbarlella - Via Valle Verde. 5 - 
05100 Terni - Tel 0744/56870 

Vendo software per tutti I mini e personal computer a prezzi 
imbattibili oppuro cambio con programmi per Macintosh Invio 
catalogo con oltre 250 programmi Franceso Corso - Via G. 
Cuomo. 53 84092 Bellizzi (SA) 

Vendo le prime 3 cassette di Videoteca computer a L. 10000. 
Vendo e cambio giochi in LM a prezzi scontati (F*. man. 
Biliardo. Pit stop. Defender) velocizzati con Turbo tape Scrive¬ 
temi Nino Riggio Via Esseneto. 65 - 92100 Agrigento 

Vendo cassetta con circa 40 programmi per Sega SC 3000con 
giochi. Utilities, grafica 30. Adventure. Othello. Statistica, mate¬ 
matica a solo L 25 OOOa comprese spese di spedizione. Carlo 
Ferrari - Via Menci. 90 - 00162 Roma - Tel. 06/8316783 

Cambio e vendo programmi di ogni genere. Vendo programmi 
su cassetta. 8 programmi Lit 9000 escluso prezzo della casset¬ 
ta e di spedizione. Ho programmi come Pet speed. sintetizzato¬ 
re vocale 0 altri 400. Roberto Massaron - Via Manora, 10 - 
20047 Brugherio (MI) • Tel. 039/879784 

Vendesi HP88B op 009. monitor 12 *. scheda porta ROM. ROM 
progr. avanzata. ROM malnx. 5 mesi mai usato. C.D.M • Via 
Lombroso. 11 • 10125 Torino - Tel. 011/687584 
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INCREDIBILE 


TASTIERA 


MIDI - SEQUENCER - BATTERIA PROGRAMMABILE 
COMPUTER COMPATIBILE... 


A 


A 





A 


MK900 

midi keyhOarp 

Tastiera portatile stereo - 
MIDI compatibile - a doppia 
generazione sonora 

^Possibilità di 

collegamento a computers 







Una straordinaria 
ricchezza timbrica e una 
insuperabile versatilità 
sintetizzate in uno 
strumento a 
microprocessore dalla 
estrema facilità d'uso 



Divisione della tastiera 
programmabile che permette 
di suonare 

contemporaneamente 2 
timbri oppure un solo timbro 
con polifonia 14 


SIE! 


rop/iooaiot 

MIDI IN e MIDI OUT 

10 ritmi + 1 ritmo 
programmabile dall’utente 

10 Presets a doppia 
generazione sonora 

Sequencer in tempo reale: 
260 note + pause, 50 
accordi, batteria per 
memorizzazione dati 

Demo Song 

Accompagnamento 
automatico multifunzione 

Controcanto automatico 

Transpose, Detune, Stereo 
Chorus 



Amplificazione stereo con 
due altoparlanti biconici a 
sospensione pneumatica 
incorporati 

Tastiera a 61 tasti 

Peso: kg. 6 

Distribuito da 

ARAMINI 


STRUMÉNTI MUSICALI 
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lina realizzazione 
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SISDOBDA 


Home Computer 


Micro e Personal Computer 
Minisistemi - Supermini - Stampanti - Plotter 
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